Cod sursa(job #288451)

Utilizator zoltrixOLARU SABIN zoltrix Data 25 martie 2009 19:58:21
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.61 kb
var f,g:text;
    u,i,t,n,s,e,k,q,j,o:longint;
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,n);
 s:=0;
 for u:=1 to n do begin
  e:=u;
  k:=u mod 10;
  case k of
  1,5,6:s:=s+k;
  2,3,7,8:begin
   q:=e mod 4;
   if q=0 then q:=4;
   o:=k;
   for j:=2 to e do o:=k*o;
   s:=s+o mod 10;
          end;

  4,9:begin
    q:=e mod 2;
    if q=0 then q:=2;
    o:=k;
    for j:=2 to e do o:=o*o;
    s:=s+o mod 10;
      end;    end;
                  end;
  writeln(g,s mod 10);
  end;
 close(f);
 close(g);
end.