FizzBuzz: Difference between revisions
Content added Content deleted
(→{{header|Ed}}: Fix a typo in tag name) |
(PascalABC.NET) |
||
Line 7,916: | Line 7,916: | ||
writeln(i) |
writeln(i) |
||
end.</syntaxhighlight> |
end.</syntaxhighlight> |
||
=={{header|PascalABC.NET}}== |
|||
<syntaxhighlight lang="delphi"> |
|||
begin |
|||
for var i:=1 to 100 do |
|||
if i mod 15 = 0 then |
|||
Print('FizzBuzz') |
|||
else if i mod 3 = 0 then |
|||
Print('Fizz') |
|||
else if i mod 5 = 0 then |
|||
Print('Buzz') |
|||
else Print(i) |
|||
end. |
|||
</syntaxhighlight> |
|||
=={{header|PDP-8 Assembly}}== |
=={{header|PDP-8 Assembly}}== |