FizzBuzz: Difference between revisions

(→‎{{header|APL}}: Add </pre> tag.)
Line 9,839:
Whisper my world
 
=={{header|RPG}}==
<nowiki>**</nowiki>free
dcl-s ix Int(5);
for ix = 1 to 100;
select;
when %rem(ix:15) = 0;
dsply 'FizzBuzz';
when %rem(ix:5) = 0;
dsply 'Buzz';
when %rem(ix:3) = 0;
dsply 'Fizz';
other;
dsply %char(ix);
endsl;
endfor;
=={{header|RPL}}==
Structured programming:
5

edits