FizzBuzz: Difference between revisions
m
→{{header|RPG}}
Jmarkmurphy (talk | contribs) |
Jmarkmurphy (talk | contribs) m (→{{header|RPG}}) |
||
Line 9,840:
=={{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:
| |||