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

Question

Информатика

Андрюха

24 июля, 06:32

Подсчитать количество отрицательных чисел среди 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.