Cod sursa(job #111771)

Utilizator savimSerban Andrei Stan savim Data 1 decembrie 2007 20:30:30
Problema Prefix Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
var gas,l,aa,lmax,nr,j,x,q,k,i,m,t:longint;
    a:array[1..1000000] of char;
    f1,f2:text;
begin
assign(f1,'prefix.in');
assign(f2,'prefix.out');
reset(f1);
rewrite(f2);
readln(f1,t);
for i:=1 to t do
 begin
  m:=0;
  while not eoln(f1) do
   begin
    m:=m+1;
    read(f1,a[m]);
   end;
  readln(f1);
   lmax:=0;
  for j:=1 to m div 2 do
   begin
    k:=m - (m mod j);
    nr:=0;x:=0;
    gas:=0;
    while x<=k do
     begin
      x:=x+j;
      for aa:=1 to j do
       if a[aa]<>a[aa+x] then begin gas:=1;break;end;
      if gas=1 then break
               else lmax:=aa+x;

     end;
   end;
  writeln(f2,lmax);
 end;

close(f1);
close(f2);
end.