Написать программу которая позволяет ввести целое число лежащее в диапазоне от 1 до 999 вывести строку которая описывает это число

Question

Информатика

Ярополк

8 апреля, 10:23

Написать программу которая позволяет ввести целое число лежащее в диапазоне от 1 до 999 вывести строку которая описывает это число

+3

Ответы (1)

Знаете ответ на вопрос?

Ефросим · Answer 1

Var a:integer; begin writeln ('Введите число от 1 до 999: ') ; readln (a) ; if (a>999) or (a<0) or (a=0) then begin writeln ('Неправильно введено число!') ; end; writeln ('Ваше число: ', a) ; end.