https://nerc.itmo.ru/wiki/index.php?action=history&feed=atom&title=%D0%9E%D0%B1%D1%81%D1%83%D0%B6%D0%B4%D0%B5%D0%BD%D0%B8%D0%B5_%D1%83%D1%87%D0%B0%D1%81%D1%82%D0%BD%D0%B8%D0%BA%D0%B0%3AMogikan 2026-09-12T14:20:11Z История изменений этой страницы в вики MediaWiki 1.30.0 https://nerc.itmo.ru/wiki/index.php?title=%D0%9E%D0%B1%D1%81%D1%83%D0%B6%D0%B4%D0%B5%D0%BD%D0%B8%D0%B5_%D1%83%D1%87%D0%B0%D1%81%D1%82%D0%BD%D0%B8%D0%BA%D0%B0:Mogikan&diff=34576&oldid=prev 2013-12-22T17:32:31Z

<p>Новая страница: «&lt;code&gt; // b – список, содержащий разбиение данного числа, length – его размер. &#039;&#039;&#039;function&#039;&#039;&#039; nextPartition(va...»</p> <p><b>Новая страница</b></p><div>&lt;code&gt;<br /> // b – список, содержащий разбиение данного числа, length – его размер.<br /> '''function''' nextPartition(var b:list): list;<br /> '''var''' i : '''integer;'''<br /> '''begin''' <br /> b[length] := b[length] - 1;<br /> b[length - 1] := b[length - 1] + 1;<br /> '''if''' b[length - 1] &gt; b[length] '''then'''<br /> '''begin'''<br /> b[length - 1] := b[length - 1] + b[length];<br /> length := length - 1;<br /> '''end'''<br /> '''else'''<br /> '''begin'''<br /> i := 0;<br /> '''while''' b[length - 1] * 2 &lt;= b[length + i] '''do'''<br /> '''begin'''<br /> b[length + i + 1] := b[length + i] - b[length - 1];<br /> b[length + i] := b[length - 1];<br /> i := i + 1;<br /> '''end;'''<br /> length := length + i;<br /> '''end;'''<br /> return(b[1..length]);<br /> '''end;'''<br /> &lt;/code&gt;</div>

Mogikan