プログラマーなら「FizzBuzz問題」解けるよな？at PROGプログラマーなら「FizzBuzz問題」解けるよな？ - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト4:仕様書無しさん 08/04/29 21:08:02 @echo off setlocal rem ケータイからカキコ rem 動くか知らん :START set count=1 if count%15==0 ( echo FizzBuzz set printflag=true ) if count%5==0 ( echo Buzz set printflag=true ) if count%3==0 ( echo Fizz set printflag=true ) if not "%printflag%"=="" echo %count% set /a count+=1 if %count% gtr 100 ( goto :END ) else ( goto :START ) :END pause exit 5:仕様書無しさん 08/04/29 21:10:46 void main(void) { puts("1"); puts("2"); puts("Fizz"); puts("4"); puts("Buzz"); puts("Fizz"); puts("7"); puts("8"); puts("Fizz"); puts("Buzz"); puts("11"); puts("Buzz"); puts("13"); puts("14"); puts("FizzBuzz"); puts("16"); ・・・・ } 6:んじゃVBA 08/04/29 21:12:18 Dim s, i For i = 1 To 100: s = s & IIf(i Mod 15 = 0, "FizzBuzz", IIf(i Mod 3 = 0, "Fizz", IIf(i Mod 5 = 0, "Buzz", i))) & vbCrLf: Next MsgBox s 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch