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

Question

Информатика

Ананиил

19 мая, 19:04

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

+4

Ответы (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.