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.
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.
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.