//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var n:=ReadInteger('n=');
write(SeqGen(n,i->(i+1)/i,1).Sum);
end.
11011111 = 223
11011001 = 217
11000011 = 195
11000000 = 192
1)60×3=180 сек
2)512000×180=92 160 000(бит)
(1 байт = 8 бит
1 Кбайт = 1024 байт,
1 Мбайт = 1024 Кбайт,)
3)92 160 000/8=11 520 000(байт)
4)11 520 000/1024=11250(Кбайт)
5)11250/1024=10,96(Мбайт)
Ответ 10,96 мегабайт