0..9: whitelh (однозначное)10..99: writelh (двузначное)100..999: writelh...

Question

0..9: whitelh (однозначное)
10..99: writelh (двузначное)
100..999: writelh (трёхзначное)
1000..9999: writelh (четырёхзначное)
10000..99999: writelh (пятизначное)

end

Вводится оценка цифрами, необходимо напечатать словами.

Comments

максимум вводится 5 значное число?

---

да

Answer 1

Var
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.