Cod sursa(job #118392)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 24 decembrie 2007 22:02:50
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
var s,n,x,i,j,k,t:longint;
    f,g:text;
begin
     assign(f,'cifra.in'); reset(f);
     assign(g,'cifra.out'); rewrite(g);
     readln(f,t);
     for i:=1 to t do
     begin
          readln(f,n);  s:=0;
          for j:=1 to n do
          begin
               x:=1;
               for k:=1 to j do x:=x mod 10 * j;
               s:=s+x mod 10;
          end;
          writeln(g,s mod 10);
     end;
     writeln(g);
     close(g);
end.