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

Question

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

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.

Comments

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