某所でFizzBuzz問題を目にしたのでちょっと書いてみました。パソコンにはDelphiが入ってたのでそれで作ってみました。
program FizzBuzz; {$APPTYPE CONSOLE} uses SysUtils; var i : Integer; prStr : String; begin for i := 1 to 100 do begin prStr := ''; if ( (i mod 3) = 0 ) then prStr := 'Fizz'; if ( (i mod 5) = 0 ) then prStr := prStr + 'Buzz'; if prStr = '' then prStr := IntToStr(i); Writeln('i = ' + IntToStr(i) + #9 + prstr); end; end.
もっと簡単に書けそうな気がするので追々気付いたときに直しておきます。
面白い解があれば教えてください。