Question

[Nghiệp]

vViết chương trình nhập vào một xâu ký tự sau đó đếm xem trong xâu có bao nhiêu ký tự "a"

Answer 1

[Kiều Vũ Linh]

Var st:string;

i,dem:integer;

Begin

Write('Nhap xau ky tu ');readln(st);

For i:=1 to length(st) do

If st[i] = 'a' then dem:=dem+1;

Write('So ky tu a co trong xau la ',dem);

Readln;

End.