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

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

Question

Маюша

2 февраля, 14:43

+1

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