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

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;                            

Оформление:

Ithink there are pictures

2*4=8                                                                
8+3=11                     
11*4=44
44+3=47
47+3=50
Ответ: 12122

Зайди на сайт playkey или закачай torrent

11010010.00112 = 1∙27+1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+0∙20+0∙2-1+0∙2-2+1∙2-3+1∙2-4 = 128+64+0+16+0+0+2+0+0+0+0.125+0.0625 = 210.187510