lama_byterun/regression/test014.expr
2019-09-19 18:37:08 +03:00

29 lines
No EOL
261 B
Text

global n;
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