Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

Question

Информатика

Фетинья

6 апреля, 06:45

Дано a и b написать программу которая подсчитывает сколько среди них меньше нуля

+1

Ответы (1)

Знаете ответ на вопрос?

Ксения · Answer 1

Var a, b:integer;

begin

readln (a) ;

readln (b) ;

if (a=0) then writeln ('1') ;

if (b=0) then writeln ('1') ;

if (a<0) and (b<0) then writeln ('2') ;

if (a>=0) and (b>=0) then writeln ('0') ;

end.