统计输入字符串中数字,字符,其他字符个数程序,运行后出现溢出错误,请大侠帮忙。谢了。
原程序如下:
program p;
var ch:char;
letter:set of char;
digit:set of'0'..'9';
k,m,n:int64;
begin
letter:=['A'..'Z','a'..'z'];
digit:=['0'..'9'];
k:=0;n:=0;m:=0;
repeat
read(ch);
if ch in letter then k:=k+1
else if ch in digit then n:=n+1
else m:=m+1;
until ord(ch)=10;
writeln('Letter=',k:6,' digit=',n:6,' other=',m-1:6);
end.
|