1 строка 3,5,4,2,1,1,2
2 строка 1,2,4,6,7,5,4,3,2,5,6,3,1
3строка 5, 2, 1,7,8,5,6,3,4,10,9,6
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Сначала 9Кбайт переделываем просто в байты. Поэтому 9*1024=9216. Потом переводим в биты? 9216*8=73728. И делим на 2048. Получается 36 секунд.
5 Мбайт,600 Кбайт,15 байт,100 бит
Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.