Способ А.
Общее время складывается из времени сжатия, распаковки и передачи. Время передачи t рассчитывается по формуле t = Q / q, где Q — объём информации, q — cкорость передачи данных.
Найдём сжатый объём: 40 * 0,5 = 20 МбайтаПереведём Q из Мбайт в биты: 20 Мбайта = 20 * 2²⁰ байт = 20 * 2²³ бит.Найдём общее время: t = 10 с + 2 с + 20 * 2²³ бит / 2²⁰ бит/с = 12 + 20 * 2³ = 172 с.Способ Б.
Общее время совпадает с временем передачи: t = 40 * 2²³ бит / 2²⁰ бит/с = 40 * 2³ с = 320 с.
Видно, что способ A быстрее на 320 - 172 = 148 с.
ответ: A148.
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
for i := 1 to N do
p:=p*x;
writeln(x,' в степени ',n,' равно ',p );
end.
2. Для цикла While
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
while i<=n do begin
p:=p*x;
i:=i+1;
end;
writeln(x,' в степени ',n,' равно ',p );
end.
3. Для цикла Repeat
var
x,n,p:longint;
i:integer;
begin
readln (x,n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
writeln(x,' в степени ',n,' равно ',p );
end.