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

Question

Информатика

Анфиса

29 апреля, 15:44

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

+3

Ответы (1)

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

Марин · Answer 1

Program fofgogjoj;

var

a, b, c, ot:integer;

begin

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

Readln (a, b, c) ;

if a<0 then

ot:=ot+1;

if b<0 then

ot:=ot+1;

if c<0 then

ot:=ot+1;

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

end.