подсчитать количество отрицательных чисел среди чисел а, б, с. (программирование ветвящихся алгоритмов)

Question

Информатика

Климент

5 марта, 15:06

подсчитать количество отрицательных чисел среди чисел а, б, с. (программирование ветвящихся алгоритмов)

+5

Ответы (1)

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

Ангелина · Answer 1

var

a, b, c: real;

count : byte;

begin

read (a, b, c) ;

count : = 0;

if a < 0 then inc (count) ;

if b < 0 then inc (count) ;

if c < 0 then inc (count) ;

wrireln (count) ;

end.