General FizzBuzz: Difference between revisions
PascalABC.NET
Not a robot (talk | contribs) (Add SETL) |
(PascalABC.NET) |
||
Line 2,822:
19
Buzz</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
##
for var i:=1 to 20 do
begin
var s := '';
if i mod 3 = 0 then
s += 'Fizz';
if i mod 5 = 0 then
s += 'Buzz';
if i mod 7 = 0 then
s += 'Baxx';
if s = '' then
Println(i)
else Println(s);
end
</syntaxhighlight>
{{out}}
<pre>
1
2
Fizz
4
Buzz
Fizz
Baxx
8
Fizz
Buzz
11
Fizz
13
Baxx
FizzBuzz
16
17
Fizz
19
Buzz
</pre>
=={{header|Perl}}==
| |||