Знайти середнє арифметичне всіх натуральних двохзначних чисел, кратних 13.

Question

Знайти середнє арифметичне всіх натуральних двохзначних чисел, кратних 13.

Answer 1

Procedure TForm1.Button1Click(Sender: TObject);
var i,kol,sum:integer; aver:real;
begin
  sum:=0;
  kol:=0;
  for i:=10 to 99 do
     if i mod 13=0
       then
        begin
          sum:=sum+i;
          kol:=kol+1;
        end;
  aver:=sum/kol;
  Label4.Caption:=IntToStr(kol);
  Label5.Caption:=IntToStr(sum);
  Label6.Caption:=FloatToStr(aver);
end;                            

Оформление:

---