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

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

Question

Пашата

25 октября, 19:41

+5

Ответы (1)

Знаете ответ?

Августа · 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.

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