Question

написать программный код (паскаль)
Числовой поток (целые числа из интервала 1<=a<=1000) вводится с клавиатуры до появления 0. Определить среднее арифметическое тех чисел, которые заканчиваются на 2 и одновременно кратны 3, если таких нет, вывести сообщение NO.

Answer 1

var

 count,sum,a:integer;

begin

 count:=0; sum:=0;

 repeat

   readln(a);

   if (a mod 10 = 2) and (a mod 3 = 0) then

     begin

       inc(count);

       sum:=sum+a;

     end;

 until a=0;

 writeln;

 if count=0 then writeln('NO')

   else

     writeln(sum/count)

end.