Advertisement
Guest User

FizzBuzz Speech in FunBasic

a guest
May 22nd, 2015
260
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.24 KB | None | 0 0
  1. For i = 1 to 20
  2. if Math.Remainder(i,15) = 0 then
  3. Speech.Say("FizzBuzz")
  4. ElseIf (Math.Remainder(i,3) = 0) then
  5. Speech.Say("Fizz")
  6. ElseIf Math.Remainder(i,5) = 0 then
  7. Speech.Say("Buzz")
  8. else
  9. Speech.Say(i)
  10. EndIf
  11. EndFor
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement