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

3 Окт 2019 в 03:43
162 +1
0
Ответы
1

program IntervalCheck;
var
number: integer;
begin
writeln('Введите число: ');
readln(number);

if number < 0 then
writeln('0')
else if (number >= 0) and (number <= 18) then
writeln('1')
else
writeln('2');
end.

19 Апр 2024 в 18:41
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир