• Найти среднее арифметическое N-чисел, введенных с клавиатуры, кратных 3 и 5 одновременно. В паскале.

Ответы 1

  • var

      n, i, sum, k : integer;

    begin

      read (n);

      for i := 1 to n do

      begin

        read (k);

        if k mod 15 = 0 then sum := sum + k;

      end;

      writeln (sum / n);

    end.

      

    • Автор:

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

Войти через Google

или

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

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

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