aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy dot Net 2024-04-19 16:56:29 -07:00
parent 0df55f9f24
commit aec8ed51b6
1045 changed files with 18889 additions and 2777 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Loops-Downward-for/ALGOL-M/loops-downward-for.alg
View file

@ -2,11 +2,16 @@ begin
integer i;
write("First approach :");
i := 10;
while (i > 0) do
while (i >= 0) do
begin
writeon(i);
i := i - 1;
end;
write("Second approach:");
for i := 0 step 1 until 10 do
writeon(10-i);
end