Вычислить ** паскале. Среди всех трехзначных чисел подсчитать количество кратных 21 и...

Question

Вычислить на паскале.
Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.

Answer 1

Var
 i,sum,kol_vo:integer;
sr:float;

begin
 for i:=100 to 999 do
  begin
   if (((i mod 21)=0) and ((i mod 2)=0)) then
    begin
      kol_vo:=kol_vo+1;
      sum:=sum+i;
    end;
  end;
sr:=sum/kol_vo;

print("необходимых чисел ",kol_vo,". Их среднее арифметическое ",sr)
end.