// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin var n:=ReadInteger('n='); var r:BigInteger:=1; for var i:=1 to n do begin r*=2; Writeln(i,' - ',r) endend.
Тестовое решение:n= 501 - 22 - 43 - 84 - 165 - 326 - 647 - 1288 - 2569 - 51210 - 102411 - 204812 - 409613 - 819214 - 1638415 - 3276816 - 6553617 - 13107218 - 26214419 - 52428820 - 104857621 - 209715222 - 419430423 - 838860824 - 1677721625 - 3355443226 - 6710886427 - 13421772828 - 26843545629 - 53687091230 - 107374182431 - 214748364832 - 429496729633 - 858993459234 - 1717986918435 - 3435973836836 - 6871947673637 - 13743895347238 - 27487790694439 - 54975581388840 - 109951162777641 - 219902325555242 - 439804651110443 - 879609302220844 - 1759218604441645 - 3518437208883246 - 7036874417766447 - 14073748835532848 - 28147497671065649 - 56294995342131250 - 1125899906842624