RosettaCodeData/Task/FizzBuzz/XPL0/fizzbuzz.xpl0
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

9 lines
224 B
Text

code CrLf=9, IntOut=11, Text=12;
int N;
[for N:= 1 to 100 do
[if rem(N/3)=0 then Text(0,"Fizz");
if rem(N/5)=0 then Text(0,"Buzz")
else if rem(N/3)#0 then IntOut(0,N);
CrLf(0);
];
]