C++上机题 PASCAL上机题

来源：百度知道编辑：UC知道时间：2024/06/18 04:44:45

C++上机题
将输入的两个字符串进行合并，合并后的字符串中的字符按照其ASCII码从小到大的顺序排序，在合并后的字符串中相同的字符只出现一次

PASCAL上机
读入一个英文句子，以‘.’结束，统计其中小写字母‘a’出现的次数
请高手赐教。给50分了。

第二题：
program a;
var
s:integer;
c:char;
begin
repeat
read(c);
if c='a' then inc(s);
until c='.';
writeln(s);
end.

program work2;
var s:longint;
c:char;
begin
while a<>'.' do
begin
read(c);
if c='a' then inc(s);
end;
writeln;
writeln(s);
end.

var
a:string;

begin
repeat
read(a);
k:=k+1;
until a='.';
for i:= 1 to k do
if a[i]='a'
then s:=s+1;
write('A de ge shu shi ',s);
end.