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

Question

Информатика

Созонт

30 мая, 23:24

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

+4

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