Cod sursa(job #191814)

Utilizator FllorynMitu Florin Danut Flloryn Data 28 mai 2008 17:25:01
Problema Stramosi Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.73 kb
 program Stramosi;  
 const nmax=250001;  
       pdoi=17;  
       var a:array[0..pdoi,0..nmax]of longint;{a[i][j]=al 2^i -lea stramos al lui j}  
   n,m,p,q,k,i:longint;  
   f,g:text;  
 begin  
 assign(f,'stramosi.in');reset(f);  
 readln(f,n,m);  
 for p:=1 to n do begin  
                  read(f,q);  
                  a[0,p]:=q;  
                  end;  
 for p:=1 to pdoi do  
 for q:=1 to n do a[p,q]:=a[p-1,a[p-1,q]];  
 assign(g,'stramosi.out');rewrite(g);  
 for k:=1 to m do begin  
                  readln(f,q,p);  
                  for i:=0 to pdoi do  
                    if (1 shl i)and p <>0 then q:=a[i,q];  
                  writeln(g,q);  
                  end;  
 close(f);close(g);  
 end.