Cod sursa(job #1089608)
Utilizator | andrei sulzandrei | Data | 21 ianuarie 2014 19:58:19 |
---|---|---|---|
Problema | Potrivirea sirurilor | Scor | 14 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.41 kb |
program caca;
var p,t:string;
v:array[1..100] of integer;
i,j,n,m,k,z:word;
f,g:text;
begin
z:=0;
k:=0;
assign(f,'strmatch.in');
reset(f);
readln(f,p);
readln(f,t);
close(f);
n:=length(t);
m:=length(p);
for i:=1 to n-m do
if p=copy(t,i,m) then begin inc(z); inc(k); v[k]:=i-1; end;
assign(g,'strmatch.out');
rewrite(g);
writeln(g,z);
for i:=1 to k do write(g,v[i],' ');
close(g);
end.