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

Question

Информатика

Катена

1 октября, 16:58

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

+4

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