напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел кратных 3 или сообщает , что таких чисел нет. программа на вход получает натуральные числа , последовательность заканчивается при вводе 0 . (pascal)

Ответ учителя по предмету Информатика

Var

A,S,N:integer;

Begin

WriteLn(‘Введите числа’);

S:=0;

N:=-1;

Repeat

Read(A);

if A mod 3 = 0 then

   Begin

   S:=S+A;

   N:=N+1;

   End

Until A=0;

WriteLn(S/N);

End.