Cod sursa(job #292052)

Utilizator tickvladulescu tick Data 30 martie 2009 18:50:15
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.86 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.