这个程序出什么问题了啊输入一串小写字母，以“.”为结束标志，统计出每个字母在该字符串中出现的次数。

char var='P'
a:array['a'..'z'] of integer;
ch,i:char;
begin
fillchar(a,sizeof(a),0);
read(ch);
while ch<>'.' do
begin inc(a[ch]); read(ch); end;
for i:='a' to 'z' do
if a[i]<>0 then writeln(i,':',a[i]);
end;

这是Pascal?
好久没弄了，根据编辑器语法高亮的结果显示：

第一行的var好像是关键字，且第一行似乎缺少分号，也不符合Pascal语法。后面的代码应该没有问题。

我试试 程序如下： var i,k:integer; s:string; a:array['a'..'z']of integer; c:char; begin k:=1; read(s[k]); while s[k]<>'.' do begin inc(k); read(s[k]); end; if k=1 then begin readln; halt; end; for i:=1 to k do inc(a[s[i]]) end; for c:='a' to 'z' do if a[c]>0 then write(c:2,a[c]:8); readln; readln； end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息