Question

Viết phương trình nhập vào 1 xâu kí tự , và đếm số lượng kí tự 'A' có trong xâu . 

Answer 1

program ki_tu;

uses crt;

var s: string;

      d,i,n: integer;

begin

clrscr;

write('nhap xau s: ');readln(s);

n:= length(s);

s:=upcase(s);

write('xau s sau khi duoc in hoa la: ');

writeln(s);

d:=0;

for i:= 1 to n do

if s[i] = 'A' then d:= d+1 ;

writeln('chu cai A xuat hien ',d,' lan');

readln

end.

 

 

 

Answer 2

Uses crt;

Var st:string;

D,i,dem:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

Dem:=0;

For i:=1 to d do

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

Writeln(dem);

Readln;

End.