lama_byterun/regression/test016.expr

mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 14:58:50 +00:00
n := read ();

s := 1;

repeat

  s := s * n;
  n := n - 1
  
until (n == 0);

write (s)
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
			`s := 1;`

			`repeat`

			`s := s * n;`
			`n := n - 1`

Better value control 2019-04-10 22:15:08 +03:00			`until (n == 0);`
Control constructs 2018-03-20 23:13:51 +03:00
			`write (s)`