[有趣]越簡單的程式, 越多人不會寫??

aziena

本來剛已經用 Delphi 寫好了，看到 krisher 兄的留言就覺得沒必要再貼。
不過看到有人說 pascal 會不會出來……hmm

Delphi 版
===================
var
  i: integer;
  varStr: string;
  varSList: TStringList;
begin
  varSList:=TStringList.Create;
  for i:=1 to 100 do
  begin
    varStr:='';
    if (((i mod 3)=0)or((i mod 5)=0)) then
    begin
      if ((i mod 3)=0) then
        varStr:=varStr+'Fizz';
      if ((i mod 5)=0) then
        varStr:=varStr+'Buzz';
    end
    else
      varStr:=IntToStr(i);

    varSList.Add(varStr);
  end;

  varSList.SaveToFile('C:\Tmp.txt');
end;