RosettaCodeData/Task/Loops-Do-while/GAP/loops-do-while.gap

6 lines
75 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
n := 0;
repeat
n := n + 1;
Print(n, "\n");
until RemInt(n, 6) = 0;