RosettaCodeData/Task/Loops-While/PL-I/loops-while.pli

7 lines
97 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
declare i fixed binary initial (1024);
do while (i>0);
put skip list (i);
i = i / 2;
end;