Question

Составьте программу для нахождения среднего арифметического двузначных
чисел, кратных 3, с использованием параметрического цикла. Ответ
прикрепите в виде файла в среде PascalABC.

Answer 1

var i,k,c:integer;
begin
k:=0;
c:=0;
for i:=10 to 99 do
begin
if ((i mod 3)=0) then
begin
k:=k+i;
c:=c+1;
end;
end;
writeln (k/c);
end.