here's the code for scrutiny
Code:for i := 1 to 100 do begin if (i mod 15=0) then write('BUZZ FIZZ':10) else if (i mod 5=0) then write('FIZZ':10) else if (i mod 3=0) then write('BUZZ':10) else write(i:10) end; writeln; writeln; writeln ('Press <Return> to continue'); readln(); end.
Bookmarks