Cod sursa(job #168503)

Utilizator Grasutzu07Neghina Cornel Grasutzu07 Data 31 martie 2008 15:54:38
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.63 kb
var v:array[1..100] of longint;
    n,a,i,t,j,k,b,d,s:longint;
    f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do begin
                 readln(f,b);
                 a:=b;
                 k:=0;
                 repeat
                 k:=k+1;
                 v[k]:=b mod 2;
                 b:=b div 2;
                 until b=0;
d:=1;
for j:=k downto 1 do begin
                     d:=d*d mod 10;
                     if v[j]=1 then d:=d*a mod 10;
                     end;
s:=(s+d) mod 10;
writeln(g,s);
end;
close(f);
close(g);
end.