Регистрация
anna080203
04.05.2021 07:22
Информатика
Есть ответ 👍

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

241
362
Посмотреть ответы 2

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

Marusya2099
Marusya2099
4,6(92 оценок)

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.

валя20063
валя20063
4,7(34 оценок)
Var a, b: real; begin write('введите a, b> > '); read(a,b); if b=0 then writeln('решения нет.') else writeln(a, ' : ', b, ' = ', a/b) end.

Популярно: Информатика