Найти количество положительных (отрицательных) чисел среди четырех чисел А,В,С, D
Answers & Comments
roookky
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.
Answers & Comments
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.