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

Question

Информатика

Орест

15 сентября, 05:08

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

+5

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