Найти количество положительных (отрицательных) чисел среди четырех чисел А, В, С, D

Question

Информатика

Мелетьюшка

3 марта, 11:57

Найти количество положительных (отрицательных) чисел среди четырех чисел А, В, С, D

+1

Ответы (1)

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

Юрченя · Answer 1

Var a, b, c, d:integer;

begin

readln (a, b, c, d) ;

if a>0 then p:=p+1;

if a<0 then o:=o+1;

if b>0 then p:=p+1;

if b<0 then o:=o+1;

if c>0 then p:=p+1;

if c<0 then o:=o+1;

if d>0 then p:=p+1;

if d<0 then o:=o+1;

writeln ('Положительных чисел:', p,', отрицательных:', o)

end.