Pagini recente » Cod sursa (job #2339463) | Cod sursa (job #2308641) | Cod sursa (job #589884) | Cod sursa (job #1931165) | Cod sursa (job #708788)
Cod sursa(job #708788)
program brute_force;
var f,g:text;
a,b,s:ansistring;
i,numar:longint;
v:array[1..2000000] of longint;
begin
assign(f,'strmatch.in'); reset(f);
assign(g,'strmatch.out'); rewrite(g);
readln(f,a);
readln(f,b);
numar:=0;
for i:=1 to length(b)-length(a) do
begin
s:=copy(b,i,length(a));
if s=a then
begin
numar:=numar+1;
v[numar]:=i-1;
end;
end;
writeln(g,numar);
if numar<01000 then
begin
for i:=1 to numar do
write(g,v[i],' ');
end
else
for i:=1 to 1000 do
write(g,v[i],' ');
close(f);
close(g);
end.