begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (2 shl i) * Ord(j >= i));
a.Println;
end.
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
Для 8-битной кодировки:
Для одной страницы требуется 40*60*8 бит = 40*60 байт = 2400 байт
1 ТБ переводим в байты:
1 ТБ=1*1024 Гбайт = 1024*1024 Мбайт = 1024*1024*1024 Кбайт = 1024*1024*1024*1024 байт
Количество страниц: 1024*1024*1024*1024 / 2400 ≈ 458 129 844,9 страниц
Высота стопки: 458 129 844 / 100 *0,01 ≈ 45813 м = 45 км
854 секунд
здесь ограничение на мин ввод 20 сим