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

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

Задать свой вопрос
1 ответ
Var  a:integer;begin  writeln('Введите число от 1 до 999: ');    readln(a);  if (agt;999) or (alt;0) or (a=0) then    begin  writeln('Ошибочно введено число!');    end;  writeln('Ваше число: ',a);end.
Ева Яськова
var a:integer;beginwriteln('Введите число от 1 до 999: ');readln(a);if (a>999) or (a<0) or (a=0) thenbeginwriteln('Неправильно введено число!');end;writeln('Ваше число: ',a);end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт