搜搜做题作业网用pascal解决问题,
来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/26 06:57:00
用pascal解决问题,
从键盘输入一个英文句子,找出有几个字母a（大小写皆可）
从键盘输入一个英文句子,找出有几个字母a（大小写皆可）
var s:string;
l,i:longint;
begin
readln(s); {输入s字符串}
l:=0; {l是A的个数,先清零}
for i:=1 to length(s) do {length（s）是求s的长度}
if （s[i]='A'） or（s[i]='a'） {如果是s[i]是'A'或'a',个数就加1}
then inc(l);
writeln(l); {输出个数}
end.
希望我的回答能帮到你.
l,i:longint;
begin
readln(s); {输入s字符串}
l:=0; {l是A的个数,先清零}
for i:=1 to length(s) do {length（s）是求s的长度}
if （s[i]='A'） or（s[i]='a'） {如果是s[i]是'A'或'a',个数就加1}
then inc(l);
writeln(l); {输出个数}
end.
希望我的回答能帮到你.