Delphi 2010
procedure Zadanie1(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := A to B do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A+1);
ShowMessage(s);
end;
procedure Zadanie2(A: Integer; B: Integer);
Var
s: String;
i: Integer;
begin
s := '';
for i := B-1 downto A+1 do
s := s + ' ' + IntToStr(i);
s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A-1);
ShowMessage(s);
end;
procedure Zadanie3(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + i;
ShowMessage('Сумма чисел = ' + IntToStr(s));
end;
procedure Zadanie4(A: Integer; B: Integer);
Var
p: Integer;
i: Integer;
begin
p := 1;
for i := A to B do
p := p * i;
ShowMessage('Произведение чисел = ' + IntToStr(p));
end;
procedure Zadanie5(A: Integer; B: Integer);
Var
s: Integer;
i: Integer;
begin
s := 0;
for i := A to B do
s := s + sqr(i);
ShowMessage('Сумма квадратов = ' + IntToStr(s));
end;
20 МБайт = 20 * 1024 байт = 20 * 1024 * 8 бит = 163840 бит
-------------------------------
Сначала рассмотрим первый случай, с применением архиватора:
Сначала инициатор отправки сжимает файл и затрачивает 14 секунд. Теперь файл весит 80% от 163840 бит = 131072 бит.
Затем инициатор отправки отправляет файл размером 131072 бит. На это затрачивается (131072 бит / 223 бит = 587.766816143) секунд.
Затем человек по ту сторону кабеля получает и распаковывает файл, на это он тратит 2 секунды. Суммарно затраченное время = 14 + 587.766816143 + 2 секунд = 603.766816143 секунд.
-------------------------------
Рассмотрим второй случай, без применения архиватора:
Инициатор отправки отправляет файл размером 163840 бит. На это затрачивается (163840 бит / 223 бит = 734.708520179) секунд. Суммарно затраченное время = 734.708520179 секунд.
-------------------------------
Ответ: А 130.941704036
<!DOCTYPE>
<html>
<head>
<meta charset=UTF-8>
<title>Таблица</title>
</head>
<body>
<table>
<tr><td></td></tr>
</table>
</body>
</html>
tr - это строка таблицы.
td - это ячейки.
Написано на Pascal:
Program ArraySequence;
Var a: Array [1..10] Of Integer;
i: Integer;
Begin
a[0] := 2;
For i := 1 To 9 Do
a[i] := 2*a[i-1] - 1;
For i := 0 To 9 Do
Write(a[i], ' ');
ReadLn;
End.<span>
</span>