PascalABC.NET: Difference between revisions

Revision as of 20:22, 31 December 2018

Revision as of 20:24, 31 December 2018

Line 72:

Assert(a.Length mod 2 = 0);

var n := a.Length div 2;

a := a.Skip([n).Concat(:] + a.Take([:n)).ToArray];

a.Println;

end.

Line 83:

for var i:=1 to 100 do

p := p * i;

writePrintln(p);

end.

</source>