Question

Viết chương trình đọc 1 xâu từ tệp Xau.mp. Kiểm tra trong xâu có bao nhiêu kí tự ‘a’. Kết quả ghi vào tệp KQ.Out

Answer 1

Program HOC24;

var s: string;

i,d: byte;

f1,f2: text;

fi='Xau.mp'

fo='KQ.Out'

begin

assign(f1,fi);

assign(f2,fo);

reset(f1);

rewrite(f2);

readln(f1,s);

d:=0;

for i:=1 to length(s) do if s[i]='a' then d:=d+1;

write(f2,d);

close(f1); close(f2);

end.