RosettaCodeData/Task/Loops-Do-while/XPL0/loops-do-while.xpl0

8 lines
112 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
code CrLf=9, IntOut=11;
int V;
[V:= 0;
repeat V:= V+1;
IntOut(0, V); CrLf(0);
until rem(V/6) = 0;
]