作业帮用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/05 20:37:00
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中
编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出各个集合中元素的个数（区分大小写）,并输出这三个集合中的元素.
要用集合!要用Pascal 急用跪谢!
用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中,统计出
var x:string;n,i,a1,b1,c1:integer;a,b,c,yingwen,shuzi:set of char;
begin
yingwen:=['a'..'z'];shuzi:=['0'..'9'];
readln(x);
n:=length(x);
for i:=1 to n do
if x[i] in yingwen then begin a:=a+[x[i]];inc(a1);end
else if x[i] in shuzi then begin b:=b+[x[i]];inc(b1);end
else begin c:=c+[x[i]];inc(c1);end;
for i:=1 to n do
if x[i] in a then begin a:=a-[x[i]];write(x[i]);end; writeln(' ',a1);
for i:=1 to n do
if x[i] in b then begin b:=b-[x[i]];write(x[i]);end; writeln(' ',b1);readln;
for i:=1 to n do
if x[i] in c then begin c:=c-[x[i]];write(x[i]);end; writeln(' ',c1);readln;
end.
自己写的,没调试,望给分