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

Question

Информатика

Аринка

21 июня, 15:36

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

+2

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