Cod sursa(job #260316)

Utilizator squeezyAmza Bianca Ioana squeezy Data 16 februarie 2009 21:47:18
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.8 kb
var
f,g: text;
a: array[0..99] of byte;
i,s,uc,j: integer;
t,n:  integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do
   begin
     uc:=(i*i*i*i) 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 a[i]:=uc*(i*i*i mod 10) mod 10
                  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.