• дана последовательность натуральных чисел,окончанием последовательности число 0. составить программу , котрая вычисляет сумму и среднее арифмитическое чисел кратных 3

Ответы 1

  • varx, s, n: integer;sr: real;beginrepeatreadln(x);if (x mod 3 = 0) and (x>0) thenbegins:=s+x;n:=n+1;end;until x=0;sr:=s/n;writeln(sr);end.
    • Автор:

      moochie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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