Знайти середнє арифметичне всіх натуральних двохзначних чисел, кратних 13.
Answers & Comments
Giammy
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;
Answers & Comments
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;
Оформление: