本人弱菜

var

k,x:longint;

a,b:ansistring;

begin

readln(a);

readln(b);

repeat

k:=pos(a,b);

if k>0 then begin delete(b,k,length(a));x:=x+1;end;

until k=0;

write(x);

end.

我的方法跟你差不多。

只能过一组。郁闷。╯﹏╰

同感！！！Mee too！！o(︶︿︶)o 唉

我也是啊，莫非有一些极端情况？

pos函数会耗费大量时间导致超时