lama_byterun/regression/test033.expr

14 lines
205 B
Text
Raw Normal View History

2018-04-03 08:05:10 +03:00
fun test (n, m) local i, s {
s := 0;
for i := 0, i <= n, i := i + 1 do
s := s + i;
if s > m then return s fi
od;
return s
}
2018-04-25 01:06:18 +03:00
x := read ();
2018-04-11 00:47:46 +03:00
2018-04-03 08:05:10 +03:00
write (test (10, 100));
write (test (100, 10))