高校问答100元连号换酒犯法吗:抹腐 脖子 上吊 撞豆就是不会pascal
来源：百度文库 编辑：高校问答 时间：2024/04/19 07:44:34
看程序 写结果
var a:array['a'..'z'] of integer;
b:char;
begin
repeat
read(b）；
if(b>='a')and(b<='a')then
a[b]:=a[b]+1;
until b='?';
for b:='a' to 'z' do
if a[b] <> 0 then write(b,‘:',a[b],'')
end.
输入： how many apples are there on the table?
输出：
哪位高手给讲一下 我们考试 一定要准确
var a:array['a'..'z'] of integer;
b:char;
begin
repeat
read(b）；
if(b>='a')and(b<='a')then
a[b]:=a[b]+1;
until b='?';
for b:='a' to 'z' do
if a[b] <> 0 then write(b,‘:',a[b],'')
end.
输入： how many apples are there on the table?
输出：
哪位高手给讲一下 我们考试 一定要准确
if(b>='a')and(b<='a')then 显然就是 b='a'
这个程序就是求'a'在句子中的个数
答案是a:4