Даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе

Question

Информатика

Роберта

2 декабря, 08:46

Даны три целых числа (a b c) найти количество отрицательных чисел в исходном наборе

+1

Ответы (1)

Знаете ответ на вопрос?

Антоныч · Answer 1

Var

a, b, c, n: integer;

begin

writeln ('vvedi a, b, c') ;

readln (a, b, c) ;

n:=0;

if a<0 then n:=n+1;

if b<0 then n:=n+1;

if c<0 then n:=n+1;

if n0 then writeln ('среди трех чисел ', n,' отрицательных')

else

writeln ('среди трех чисел нет отрицательных')

end.