lama_byterun/lama-compiler/regression/test014.lama

27 lines
No EOL
253 B
Text

var n = read ();
while n > 0 do
if n < 1000
then
if n < 500
then
if n < 250
then
if n < 125
then
if n < 63
then
if n < 32
then
write (1)
fi
fi
fi
fi
fi
fi;
n := n - 1
od