Cod sursa(job #260356)

Utilizator squeezyAmza Bianca Ioana squeezy Data 16 februarie 2009 22:34:56
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.94 kb
var
f,g: text;
a: array[0..99] of integer;
i,s,uc,j,x: longint;
t,n:  integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do
a[i]:=0;
for i:=0 to 99 do
   begin
     uc:=i*i;
     uc:=uc*i;
     uc:=uc*i;
     uc:=uc mod 10;
     if i mod 4=0 then a[i]:=uc
                  else if i mod 4=1 then a[i]:=(uc*(i mod 10)) mod 10
                                    else if i mod 4=2 then
                                             a[i]:=uc*((i*i) mod 10) mod 10
                                          else begin x:=(i*i*i) mod 10;
                                             a[i]:=(uc*x)  mod 10; end;
                  end;
s:=0;
for i:= 0 to 99 do begin
    a[i]:=(s+a[i]) mod 10;
    s:=a[i];
   end;
   readln(f,t);
for j:=1 to t do begin
   readln(f,n);
   if n>=100 then writeln(g,a[n mod 100])
             else writeln(g,a[n]);
   end;
close(f);
close(g);
end.