pascal输入一串字符,以'?'结束.统计其中字母个数,数字个数,其它符号个数

用c语言键盘输入一串以回车结束的字符，统计其中的英文字母的个数，数字符号的个数，其他字符的个数，急~

#include
void main() { char str[256],*p; int a,b,c;
gets(str); p=str; a=b=c=0;
while ( *p ) {
if ( (*p)>='A' && (*p)<='Z' ) a++;
else if ( (*p)>='a' && (*p)<='z' ) a++;
else if ( (*p)>='0' && (*p)<='9' ) b++;
else c++;
p++;

}
printf("英文字母%d，数字%d，其他%d
",a,b,c);
}

主要代码：
char s[1000];
int i,j=0;
scanf("%s",s);
for(i=0;i<1000;i++)
{
if(s[i]=='*') //for循环查找字符*的数量
j++;//利用变量j计数
}

var a:array['0'..'9']of longint;
b:array['a'..'z']of longint;
c:array['A'..'Z']of longint;
zm,sz,fh,i:longint;
j:char;
s:ansistring;
flag:boolean;
begin
read(s);
i:=1;
while s[i]<>'?' do
begin

if (ord(s[i])-48<=9)and(ord(s[i])-48>=0) then begin inc(a[s[i]]); flag:=true;end;
if (ord(s[i])-97<=25)and(ord(s[i])-97>=0) then begin inc(b[s[i]]);flag:=true;end;
if (ord(s[i])-64<=25)and(ord(s[i])-64>=0) then begin inc(c[s[i]]);flag:=true;end;
if not(flag) then inc(fh);
flag:=false;
inc(i);
end;
for j:='0' to '9' do inc(sz,a[j]);
for j:='a' to 'z' do inc(zm,b[j]);
for j:='A' to 'Z' do inc(zm,c[j]);
writeln('ShuZi ',sz);
writeln('ZiMu ',zm);
write('FuHao ',fh);
end.

---

乌什县13042425651： Pascal编程:输入一串字符,字符个数不超过255,且以'.'结束.判断他是否构成回文,求大师解答 - ？
姬友益肾： var s:string; i,j:integer; begin readln(s); i:=1; j:=length(s)-1; while (i<j )and(s[i]=s[j]) do begin inc(i); dec(j) end; if i=j then writeln('Yes') else writeln('No'); end.

乌什县13042425651： 输入一串字符,以?结束,统计各字幕出现的次数……用pascal... - ？
姬友益肾： ogram cc; var a:array['a'..'z']of longint; {存相应的字母数} s:string;t,max,min:longint; c,m:char; begin readln(s); for t:=1 to length(s) do if (s[t]>='a')and(s[t]='z') then inc(a[s[t]]); {先统计各个字母的个数,由于LZ题目中只有小写字母,这里就只处理小...

乌什县13042425651： 高手请进pascal语言 输入三个字符,输出每个字符的序号,然后反向输出者三个字符,求序号用ord函数 - ？
姬友益肾： var i,j,k:longint; a,b,c:char; begin readln(a,b,c); writeln(ord(a),' ',ord(b),' ',ord(c)); writeln(c,b,a); end.

乌什县13042425651： free pascal编程:输入一串以'!'结束的字符,按逆序输出.(用递归做) - ？
姬友益肾： procedure rev; var c:char; begin read(c); //读一字符 if c'!' then rev; //如本行未结束,则递归 write(c); //输出字符c end; begin rev; end.

乌什县13042425651： Pascal输入字符串数组输出怎样做？
姬友益肾： 只要输入/出,参考下array ofstring;//字串组i=1to3doreadln(s );//输入串fori1to3dowriteln(s );//输出串end.

乌什县13042425651： 急求急求 用pascal语言 输入一串字符串,要求程序按输入时的逆序把这个字符串打印出？
姬友益肾： var i:integer; s:string; begin readln(s); for i:=length(s) downto 1 do write(s[i]); writeln; end.

乌什县13042425651： 用pascal语言编程:输入一行字符,分别统计出其中英文字母、空格、数字和其他字符的？
姬友益肾： program df; var s:string; i,z,k,sh,q:longint; begin z:=0; k:=0; sh:=0; q:=0; readln(s); for i:=1 to length(s) do if s[i] in ['a'..'z','A'..'Z'] then z:=z+1 else if s[i]=' ' then k:=k+1 else if s[i] in ['1'..'9'] then sh:=sh+1 else q:=q+1; writeln('you ',z,' ge zi mu'); writeln('you ',...

乌什县13042425651： pascal语言:输入一串字符,比较出现最多的数字,如果两个数字次数一样一样,就从小到大换行输出. - ？
姬友益肾： 楼主您好!vars:string;i,j,x,l:longint;a,w:array[1..9] of longint;beginreadln(s);for i:=1 to length(s) dobeginval...

乌什县13042425651： 用PASCAL语言求回文数问题？
姬友益肾： ls显然错..比如1122,按照你的操作顺序的话就是1进1出2进2出,最终也能得到空栈,但1122显然不是回文.. 这个是我写的程序,因为不知道数据范围,所以用了string,如果数据太大的话建议改成ansistring.. var a:char; s1,s2:string; ...

乌什县13042425651： pascal输入三个字符输出每个字符的序号然后反向输出这三个字符？
姬友益肾： var c:array[1..3]of char; i:longint; begin for i:=1to 3do read(c[i]); for i:=1to 3do writeln(c[i],':',ord(c[i])); for i:=3downto 1do write(c[i]); end. 你是初学者吧!