Smallest square that begins with n: Difference between revisions

Content added Content deleted
(Added Algol W)
m (→‎{{header|ALGOL W}}: type in comment...)
Line 21: Line 21:
while v > 0 do begin
while v > 0 do begin
if v <= MAX_NUMBER and lowest( v ) = 0 then begin
if v <= MAX_NUMBER and lowest( v ) = 0 then begin
% found a suare that starts with a number in the range %
% found a square that starts with a number in the range %
lowest( v ) := n2;
lowest( v ) := n2;
numberFound := numberFOund + 1
numberFound := numberFOund + 1