Информатика, опубликовано 03.04.2019 00:40
Доступ к файлу happy.htm, находящемуся на сервере sibline.ru, осуществляется по протоколу http. фрагменты адреса файла закодированы буквами от а до ж. запишите последовательность этих букв, кодирующую адрес указанного файла в сети
интернет.
Ответ оставил: Гость
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;
Оформление:
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;
Оформление:
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01