Задать вопрос Регистрация
Помочь другим

  • напишите программу которая в последовательности целых чисел определяет среднее арифметическое положительных чисел кратных 8

Ответы 1

  • var    d: integer;    n := 0;    s := 0;begin    repeat        readln(d);        if (d > 0) and (d mod 8 = 0) then begin            s := s + d;            n := n + 1;        end    until d = 0;    writeln('Avg = ',s / n)end.

    • Автор:

      bosco9ty7
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years