Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
14
Task/Loops-For/Oberon/loops-for.oberon
Normal file
14
Task/Loops-For/Oberon/loops-for.oberon
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
MODULE LoopFor;
|
||||
IMPORT
|
||||
Out;
|
||||
VAR
|
||||
i, j: INTEGER;
|
||||
|
||||
BEGIN
|
||||
FOR i := 1 TO 5 DO
|
||||
FOR j := 1 TO i DO
|
||||
Out.Char('*');
|
||||
END;
|
||||
Out.Ln
|
||||
END
|
||||
END LoopFor.
|
||||
Loading…
Add table
Add a link
Reference in a new issue