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

Question

Информатика

Ольда

13 апреля, 15:18

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

+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.