<u>PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var j:biginteger:=2;
var i:BigInteger;
Writeln(j);
loop 9 do begin
i:=j; j*=i; Println(j)
end
end.
Ответ:
У каждого есть свои замыслы и идеи по поводу техники. Что на счёт меня, моя техника мечты - это домашний робот-компьютер со встроенным искусственным интеллектом. Он может служить отличным помощником в домашних делах, хорошим собеседником и просто средством для развлечений. Проблема, к примеру, с математикой? Не нужно печатать и искать какой-то сайт с объяснениями. Можно спросить у робота. Он не только может помочь решить, но и объяснит возможные ошибки. В таких же случаях его можно использовать, когда нужен совет или что-то подобное. А когда совсем скучно, можно попросить его сыграть с тобой в какую-нибудь игру. И робот сразу подключается через интернет к твоему игровому серверу и весёлое время препровождения гарантировано.
Объяснение:
Держи. Если я правильно поняла вопрос, конечно...
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->2*(i+1)+1); a.Println
end.