Question

Nhập họ tên 1 người(<=40 kí tự), cho biết tên người đó có bao nhiêu kí tự "A".

(làm PC mn nhá, cám ơnnn)

Answer 1

uses crt;

var st:string[40];

i,d,dem:integer;

begin

clrscr;

write('Nhap ho ten:'); readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

if st[i]='A' then inc(dem);

writeln('Ten nguoi do co ',dem,' chu A');

readln;

end.