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

Question

Информатика

Ипат

3 июля, 01:31

Дано 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.