Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:fizzbuzz

Fizz Buzz

Desafio: Escrever um programa que imprima os números de 1 a 100 (um em cada linha). No entanto, o programa deve imprimir "Fizz" em vez dos múltiplos de 3 e "Buzz" em vez dos múltiplos de 5. Para os números que são múltiplos de tanto 3 como 5, o programa deve imprimir "FizzBuzz".

Exemplo de output:

1
2
Fizz
4
Buzz
Fizz
7
(...)
program FizzBuzz;
 
var
  i: integer;
 
begin
  for i := 1 to 100 do
  begin
    if i mod 3 = 0 then
      write('Fizz');
    if i mod 5 = 0 then
      write('Buzz');
    if (i mod 3 <> 0) and (i mod 5 <> 0) then
      write(i);
    writeln;
  end;
end.
dev_geral/pascal/snippet/fizzbuzz.txt · Última modificação em: 2018/05/14 21:37 (edição externa)