Какое число будет выведено на экран в результате выполнения этого цикла? i: =5; write('9'); while i< 5 do begin write(i); i: =i+1; end;

Если ты нигде не ошибся, то цикл не выполнится и программа выведет только девятку, которая перед этим самым циклом стоит

Фактически требуется вычислить значение следующего выражения: в связи с ограниченной разрядностью представления целых чисел в традиционном паскале, используется появившийся в pascalabc.net 3.0 тип данных biginteger, имеющий произвольную разрядность. // pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var n: =readinteger('n=');   var s: biginteger: =0;   for var i: =1 to n do begin       var sp: biginteger: =1;       for var j: =i to 2*i do sp*=j;       s+=sp       end;   writeln('s=',s) end. тестовые решения: n= 10 s=6867491336546 n= 20 s=6790094079076573854634585045346 n= 200 s=16259132945245603272459357532926431055851011262226423901521610672683053074122398284194138200811393508183584635163325580662485661758792994853918852068566553866936403927187322304685846233840511935657079269303199247681681900473643377764171469288217130928626467970695282872799909803648986880297649242631688825602025883316969148173917409343244672476380960595892701641078133125672741993996178795224513183779220724481183819428328185978629676722172834554113541584734035734977004732415721620206280485845346