UC知道pascal问题求解
来源：百度知道 编辑：UC知道 时间：2024/07/02 20:48:16
问题：n个人给4个人abcd投票，投给abcd算一票，投其他算弃权，请统计出投票数，求求各位高手给个解答啊．．．．要pascal的竞赛答案
program cs;
var
a,b,c,d:integer;
i:integer;
s:string;
begin
a:=0;
b:=0;
c:=0;
d:=0;
readln(s);
for i:=1 to length(s) do
begin
case s[i] of
'a':inc(a);
'b':inc(b);
'c':inc(c);
'd':inc(d);
end;
end;
writeln(a,' ',b,' ',c,' ',d);
end.
输入n个人的投票，如abccbdcacb;
很简单嘛！
var
i,a,b,c,d:integer;
r:char;
s:string;
begin
readln(s);
a:=0;
b:=0;
c:=0;
d:=0;{初始化}
for i:=1 to lenth(s)do
case s[i] of{统计}
'a':inc(a);
'b':inc(b);
'c':inc(c);
'd':inc(d);
end;{case}
writeln('a:',a);
writeln('b:',b);
writeln('c;',c);
writeln('d:',d)
end.
可能是这样
program toupiao;
var
a,b,c,d:intger;
s:string;
begin
a