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

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

end

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

Задать свой вопрос
Лидия Моросанова
максимум вводится 5 значное число?
Мария
да
1 ответ
Var
x:integer;
Begin
Readln(x);
If (x lt; 10)
then Writeln('однозначное')
else
If (x lt; 100)
then Writeln('двузначное')
else
If (x lt; 1000)
then Writeln('трехзначное')
else
If (x lt; 10000)
then Writeln('четырехзначное')
else
If (x lt; 100000)
then Writeln('пятизначное');
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт