Nhập từ bàn phím xâu s1 và xâu s2,đưa ra màn hình số lần xuất hiện của xâu s1 trong xâu s2.
1 câu trả lời
program xuat_hien;
uses crt;
var s1,s2:string;
d:byte;
begin
clrscr;
write('Xau s1 la: '); readln(s1);
write('Xau s2 la: '); readln(s2);
d:=0;
while pos(s1,s2)<>0 do
begin
insert(chr(1),s2,pos(s1,s2));
d:=d+1;
delete(s2,pos(s1,s2),length(s1));
end;
write('So lan xuat hien la: ',d);
readln;
end.
