8 lines
233 B
Text
8 lines
233 B
Text
do i = 1 to 100;
|
|
select;
|
|
when (mod(i,15) = 0) put skip list ('FizzBuzz');
|
|
when (mod(i,3) = 0) put skip list ('Fizz');
|
|
when (mod(i,5) = 0) put skip list ('Buzz');
|
|
otherwise put skip list (i);
|
|
end;
|
|
end;
|