Cod sursa(job #260127)

Utilizator squeezyAmza Bianca Ioana squeezy Data 16 februarie 2009 17:49:59
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
var
f,g: text;
a: array[0..99] of byte;
i,s,uc: byte;
t,n:  integer;
begin
assign(f,'cifra.out');
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 i:=1 to t do begin
   readln(f,n);
   writeln(g,a[n mod 100]);
   end;
close(f);
close(g);
end.