Question

Viết chương trình nhập 1 xâu từ bàn phím, đưa ra: Đếm số ký tự ‘a’ có trong xâu.

Answer 1

_{tham khảo}

 

_{uses crt;}

_{var a:string;}

_{i,d,dem:integer;}

_begin

_clrscr;

_{write('Nhap xau a:'); readln(a);}

_dem:=0;

_{d:=length(a);}

_{for i:=1 to d do}

_{if a[i]=' ' then inc(dem);}

_{writeln(dem);}

_readln;

_end.

Answer 2

uses crt;

var st:string;

d,i,dem:integer;

begin

clrscr;

readln(st);

d:=length(st);

dem:=0;

for i:=1 to d do

  if (st[i]='a') then dem:=dem+1;

writeln(dem);

readln;

end.