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

Question

Информатика

Ярополк

1 апреля, 05:47

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

+2

Ответы (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.