Подсчитать количество отрицательных чисел среди трех введенных с клавиатуры.

Желательно в PascalABC

1

Ответы и объяснения

Лучший Ответ!
2012-01-31T17:43:32+00:00

var kol,a,b,c:longint;

begin

  read(a,b,c);

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

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

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

  write(kol);

end.