lama_byterun/regression/test014.expr

local 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
Generalized state 2019-09-29 02:47:07 +03:00			`local n;`
Global definitions; regression tests fixed 2019-09-19 18:37:08 +03:00
Strings/arrays/builtins in int/sm 2018-04-25 01:06:18 +03:00			`n := read ();`
Control constructs 2018-03-20 23:13:51 +03:00
			`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`