pascal. если число с клавиатуры попало в интервал до 0,

pascal. если число с клавиатуры попало в интервал до 0, вывести 0, если от 0 включительно до 18 то, вывести 1, во всех других случаях вывести 2.

Задать свой вопрос
1 ответ
Program a;
var a: integer;
begin
writeln ('Vvedite chislo: ');
readln(a);
if (a lt; 0) then write('0')
else if ((a gt;= 0) and (a lt;= 18)) then write('1')
else write ('2');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт