Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- i:integer;
- IDev3, IDev5, IBoth:real;
- begin
- for i:= 1 to 100 do
- if i MOD 15 = 0 then
- WriteLn('FizzBuzz')
- else if i MOD 3 = 0 then
- WriteLn('Fizz')
- else if i MOD 5 = 0 then
- WriteLn('Buzz')
- else
- WriteLn(i);
- ReadLn;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement