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

Question

Информатика

Мане

30 ноября, 03:07

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

+5

Ответы (1)

Знаете ответ?

Корьюн · Answer 1

Program a;

var a: integer;

begin

writeln ('Vvedite chislo: ') ;

readln (a) ;

if (a < 0) then write ('0')

else if ((a > = 0) and (a < = 18)) then write ('1')

else write ('2') ;

end.