С ПРОГРАММОЙ, ! написать программу, которая по вводу с клавиатуры последовательности целых чисел признак окончания ввода — ввод

16.03.2017
Без рубрики

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

  • 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.

  • 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));ReadLn

    End.