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

Question

Информатика

Гемуля

22 мая, 03:49

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

+5

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