подсчитать количество отрицательных чисел a, b, c.

Question

Информатика

Колюша

28 февраля, 05:22

подсчитать количество отрицательных чисел a, b, c.

+5

Ответы (1)

Знаете ответ на вопрос?

Хиония · Answer 1

program prog;

var a, b, c, i:integer;

begin

Writeln ('Введите 3 числа') ;

Readln (a, b, c) ;

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

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

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

writeln ('Количество отрицательных чисел: ', i) ;

end.