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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.