Cho tệp in.txt bên trong nó có chứa một xâu kí tự .E hãy viết chương trình đếm số lượng kí tự 'a' có mặt trong xâu câu in.txt sau đó ghi số lượng tìm được vào trong tệp out.txt.
2 câu trả lời
program bai_giai;
var f,g:text;
S:string;
i,d:integer;
begin
Assign(f,'in.txt'); reset(f);
Assign(g,'out.txt'); rewrite(g);
readln(f,s);
d:=0;
for i:=1 to length(s) do
if s[i]='a' then d:=d+1;
write(g,d);
close(f); close(g);
end.
uses crt;
var a,m:text; dem,i:longint; s:string;
begin
clrscr;
assign(a,'in.txt');reset(a);
assign(m,'out.txt');rewrite(m);
readln(a,s);
dem:=0;
for i:=1 to length(S) do if s[i]='a' then inc(dem);
writeln(m,dem);
close(m);
close(a);
end.
