Pagini recente » Cod sursa (job #954871) | Cod sursa (job #1593927) | Cod sursa (job #851064) | Cod sursa (job #1699448) | Cod sursa (job #138469)
Cod sursa(job #138469)
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.