Nonoblock: Difference between revisions
m
Small improvement to Pascal code
(Added solution for Pascal) |
m (Small improvement to Pascal code) |
||
Line 2,060:
inc(z[j - 1]);
z[h] := z[j] - 1;
end;
end;
|