function digtal(n,k:longint):integer;
var s:string;
begin
str(n,s);
exit(ord(s[k])-48);
end;
這是用 free pascal 設置的函數(shù)
turbo Pascal 中
exit(ord(s[k])-48);
改為 digtal:=ord(s[k])-48;