• ПОМОГИТЕ С ПРОГРАММОЙ, ПОЖАЛУЙСТА!
    нужно написать программу, которая по вводу с клавиатуры последовательности целых чисел (признак окончания ввода- ввод числа 0) подсчитывает среднее арифметическое НЕЧЕТНЫХ чисел и чисел, КРАТНЫХ 5.

Ответы 2

  • Var   A,i:integer;   B:real;BeginrepeatWriteln('Введи число.');ReadLn(A);if (A mod 10 =0) then Begin  i:=i+1;  B:=A+B; End;until (A=0);WriteLn('Среднее арифметическое нечетных чисел кратных 5 равно: ',B/(i-1));ReadLnEnd.
  • Var x,i:integer;   y:real;Beginwriteln('Признак окончания ввода - ввод числа 0');repeatWriteln('Введите число');ReadLn(x);if (x mod 2 >0) and (x mod 5 = 0) then Begin  i:=i+1;  y:=x+y; End;until (x=0);WriteLn('Среднее арифметическое нечетных чисел кратных 5 = ',y/i);End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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