Question

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

Answer 1

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.