2*16*1000*24*5*60 бит=(2*16*1000*24*5*60)/2^23 Мбайт=28,23 Мбайт=28 Мбайт
.алгоритм вычисления произведение целых чисел
Ну смотри: 80% от 2,1 ГБ - это
![2.1/100*80=1.68](https://tex.z-dn.net/?f=2.1%2F100%2A80%3D1.68)
ГБ
![1,68 * 1024 * 1024 * 1024=1803886264.32](https://tex.z-dn.net/?f=1%2C68+%2A+1024+%2A+1024+%2A+1024%3D1803886264.32)
байт, а 1 байт обычно (в юникоде) равен как раз 1 символу
И получаем уравнение:
![200 * t=1803886264.32](https://tex.z-dn.net/?f=200+%2A+t%3D1803886264.32)
Решаем:
![1803886264,32/200=9019431.3216](https://tex.z-dn.net/?f=1803886264%2C32%2F200%3D9019431.3216)
минут
![=541165879.296](https://tex.z-dn.net/?f=%3D541165879.296)
секунд<em>, числа, конечно, так себе, но, вроде бы, всё верно =)</em>
Var
n,i,j,c:integer;
mas:array[1..999] of integer;
begin
readln(n);
for i:=1 to 2*n do
readln(mas[i]);
//Группируем массив в порядке возрастания
for i := 1 to 2*n-1 do<span>
for j := 1 to 2*n-i do
if mas[j] > mas[j+1] then
begin
c := mas[j];
mas[j] := mas[j+1];
mas[j+1] := c;
end;
writeln('Оптимальные пары:');
for i:=1 to 2*n do
begin
if i mod 2 = 1 then
write(mas[i],' и ');
if i mod 2 = 0 then
writeln(mas[i]);
end;
</span>end.
Ответ на ребус стриж . жжж-триж