• 
  • 14 April 2013
  Английский язык
  • Автор: Viki521

  

  Напишите программу, которая в последовательности целых чисел находит среднее арифметическое чисел, кратных 9, или сообщает, что таких чисел нет. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введённые числа по модулю не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 9, или вывести NO, если таких чисел в последовательности нет.

• 
  • 14 April 2013
  • Ответ оставил: Hasl1337

  var
    a, i, count, s: integer;
  begin
    repeat
      if(i = 100) then break;
      readln(a);
      if(abs(a) > 300) then begin
        writeln('Число по модулю не может быть > 300.');
        continue
      end
      else if(a mod 9 = 0) and (a <> 0) then begin
        inc(count);
        s := s + a;
      end;
      if(a <> 0) then inc(i);
    until(a = 0);
    writeln('Среднее арифметическое: ', s / count);
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (31.03.2026) наш сайт содержит 244795 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы