Question

nhập vào xâu s1= tin hoc may tinh may tinh ,s2=may. đếm số lượng xâu s2 xuất hiện bao nhiêu lần trong xâu s1

Answer 1

Program HOC24;

var s1,s2:string;

d,i: integer;

begin

write('Nhap xau s1='); readln(s1);

write('Nhap xau s2='); readln(s2);

d:=0;

while pos(s2,s1)<>0 do

begin

d:=d+1;

delete(s1,pos(s2,s1),length(s2));

end;

write('Xau s2 xuat hien ',d,' lan trong xau s1');

readln

end.