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