Đếm số lần xuất hiện của kí tự "A" trong xâu vừa nhập
2 câu trả lời
Program Hotboy ;
Uses crt;
var Hb:string;
i,d:byte;
k:char;
Begin
Clrscr;
D:=0;
Write('Nhap xau tu ban phim ');
Readln(Hb);
Write('nhap ki tu bat ki');
Readln(k);
For i:=1 to length(Hb) do
if (Hb[i]=k ) then inc(d);
write('So ki tu ',k,' trong xau do la: ',d);
Readln
End.
program phuongt;
uses crt;
var s: string;
i, d: integer;
begin
clrscr;
write('Nhap s = '); readln(s);
d:=0;
for i:=1 to length(s) do if s[i]='A' then d:=d+1;
write('So lan xuat hien cua ki tu "A" la: ', d);
readln
end.
