为什么会这样啊。。。

執行時發生錯誤 (SIGSEGV)(11)!!
Segmentation fault, an address reference boundary error.(記憶體區段錯誤)
可能原因為:
* 通常為使用超過陣列範圍
* 指標指向不正確位址!
* 陣列初始化不正確!
* 嘗試在執行時期定義陣列長度!

[code]

program jiec;

  var
      i,j,k:longint;
      s:ansistring;

  function jc(n:longint):longint;
    begin
      if n=0 then jc:=1
        else
          jc:=n*jc(n-1);
    end;

  begin
    while not eof do
      begin
        read(i);
        i:=jc(i);
        str(i,s);
        k:=0;
        for i:=length(s) downto 1 do
          if s[i]='0' then inc(k) else break;
        writeln(k);
      end;
  end.