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

Jisbihish Jisbihish    3   30.03.2019 11:20    2

Ответы
svitlanaholenkp0an3s svitlanaholenkp0an3s  27.05.2020 16:50

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика