langs a-z
This commit is contained in:
parent
db842d013d
commit
d066446780
11389 changed files with 98361 additions and 1020 deletions
9
Task/Loops-Break/XPL0/loops-break.xpl0
Normal file
9
Task/Loops-Break/XPL0/loops-break.xpl0
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
include c:\cxpl\codes;
|
||||
int N;
|
||||
loop [N:= Ran(20);
|
||||
IntOut(0, N);
|
||||
if N=10 then quit;
|
||||
ChOut(0, 9\tab\);
|
||||
IntOut(0, Ran(20));
|
||||
CrLf(0);
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue