profile
Опубликовано 6 лет назад по предмету Информатика от Манюнчик19

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

  1. Ответ
    Ответ дан emblerik

    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.

Самые новые вопросы