0..9: whitelh (однозначное)
10..99: writelh (двузначное)
100..999: writelh (трёхзначное)
1000..9999: writelh (четырёхзначное)
10000..99999: writelh (пятизначное)
end
Вводится оценка цифрами, необходимо напечатать словами.
10..99: writelh (двузначное)
100..999: writelh (трёхзначное)
1000..9999: writelh (четырёхзначное)
10000..99999: writelh (пятизначное)
end
Вводится оценка цифрами, необходимо напечатать словами.
Answers & Comments
x:integer;
Begin
Readln(x);
If (x < 10)
then Writeln('однозначное')
else
If (x < 100)
then Writeln('двузначное')
else
If (x < 1000)
then Writeln('трехзначное')
else
If (x < 10000)
then Writeln('четырехзначное')
else
If (x < 100000)
then Writeln('пятизначное');
end.