[Мы решаем ваши проблемы с Си и Паскалем ]
Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08
1292
var T,N,K,L,r,rn,i,j: longint; M: longint;
var a: array[1..11111] of longint;
z:array [1..33333] of longint;
b:array [1..11111] of byte;
begin
 fillchar (a, sizeof (a), 0);
 for i:=1 to 11111 do
  begin
   r:=3*i;rn:=0;
   while r<>0 do begin
    inc(rn,sqr(r mod 10)*(r mod 10));
    r:=r div 10;
   end;
   a[i]:=rn div 3;
  end;
 readln(T);

 for i:=1 to t do begin
   readln(N,K,L);
   r:=k div 3;
   fillchar (b, sizeof (b), 0);
   for j:=1 to n-1 do begin
    z[j]:=r;
    b[r]:=j;

    if (b[a[r]]<>0) then begin r:=(z[(n-1-b[a[r]]) mod (j-b[a[r]]+1)+b[a[r]]]); Writeln(3*r-l);break; end;
    r:=a[r];
    if j=n-1 then writeln (3*r-l);
 end;
    end;
end.
Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008)
Просмотров: 981