Cod sursa(job #13134)
Utilizator | Pajarcu Alexandru-Petrisor petre | Data | 5 februarie 2007 20:23:24 |
---|---|---|---|
Problema | Stramosi | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.49 kb |
program str;
var A,c:array[1..250000]of longint;
b:array[1..300000,1..2] of longint;
m,n,i,j,k,l:longint;f,g:text;
begin
assign(f,'stramosi.in');
assign(g,'stramosi.out');
reset(F);
rewrite(G);
readln(f,n,m);
for i:=1 to n do read(f,a[i]); readln(F);
for i:=1 to m do
begin
read(f,b[i,1],b[i,2]);
k:=b[i,1];
j:=0;
repeat
j:=j+1;
k:=a[k];
until (j=b[i,2])or(k=0);
write(K);
end;
close(F);
close(G);
end.