ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ! В паскале!

Question

"Даны две строки сосчитать сколько раз вторая строка входит в первую и удалить с начала строки столько символов, сколько вторая строка входит в первую"

Ольга Ниазбаева · Accepted Answer

А в чем проблема? Берете, сравниваете куски первой со второй и считаете. Потом отрезаете. 
Если нужен код - пишите в почту.

Алексей · Answer

var 
 s1,s2:string; 
 i,j,cnt:integer; 
begin 
 s1 := '123-123-123-123-123'; 
 s2 := '123'; 
 cnt := 0; 
 i := 1; 
 repeat 
 j := pos(s2,copy(s1,i,maxint)); 
 if j>0 then 
 begin 
 inc(cnt); 
 i := i + j + length(s2) - 1; 
 end; 
 until j=0; 
 
 if cnt>0 then 
 delete(s1,1,cnt); 
 
 showmessage(format('s1=%s'#13'cnt=%d',[s1,cnt])); 
 
end;