Cod sursa(job #142869)

Utilizator andrici_cezarAndrici Cezar andrici_cezar Data 25 februarie 2008 15:03:08
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
program p21;
var n:string[100];
    f,g:text;
    x,y:array[1..100]of longint;
    e,c,i,lg,t,nn,k,p,q:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);


x[1]:=1;
y[1]:=1;
for i:=2 to 99 do
    begin
    c:=i mod 10;
    e:=i mod 4;
    if e=0 then e:=4;
    p:=1;
    for k:=1 to e do
          p:=p*c;
    x[i]:=p mod 10;
    y[i]:=(y[i-1]+x[i])mod 10;
    end;



    readln(f,t);
    for i:=1 to t do
    begin
    readln(f,n);
         p:=0;
         lg:=length(n);
         q:=ord(n[lg])-ord('0');
         if lg>1 then p:=ord(n[lg-1])-ord('0');
         nn:=p*10+q;
         writeln(g,y[nn]);
         end;
close(g);
end.