Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program Arina;
- var
- s,s1: ansistring;
- i, k, n,prov: word;
- pref: array of word;
- sum: word;
- begin
- Assign(input, 'input.txt');
- Assign(output, 'output.txt');
- reset(input);
- rewrite(output);
- Readln(s1);
- readln(s);
- n:=length(s1);
- s:=s1+' '+s;
- s1:= '';
- setlength(pref,Length(s)-n);
- k := 0;
- prov:=Length(s)-n+1;
- for i := n+1 to Length(s) do
- begin
- while (k > 0) and (s[k + 1] <> s[i]) do
- k := pref[k];
- if s[k + 1] = s[i] then
- k += 1;
- pref[i] := k;
- if pref[i]=n then
- sum += 1;
- end;
- Write(sum);
- Close(input);
- Close(output);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement