По нашему 6000 тысяч 800рублей
Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения
2048+1024=3072(бит/сек) - скорость нового соединения
73728/3072=24 секунды
Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
Ответ:100 килобайтов потомучто в одном килобайте 1024 байта, а в том что ты показал 100стр в каждом по 16 строк а в каждойистроке по 64 тогда мы перемножаем на канкуле 100×16×64=102400÷1024=100 килобайтов
Var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
<span>if N = 0 then factorial := 1 </span>
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
<span>for i := 2 to n do </span>
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
<span>s := s + (factorial(i) / d); </span>
end;
write(s);
<span>end.</span>