Cod sursa(job #56545)

Utilizator deleted_64d853f2e2bbccbeDELETED deleted_64d853f2e2bbccbe Data 29 aprilie 2007 20:49:31
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.79 kb
program cifra;
var n,t,j,x,i,k,suma,s:longint;
    f,g:text;
begin
     assign (f,'cifra.in');
     reset (f);
     assign (g,'cifra.out');
     rewrite (g);
     read(f,t);
     for x:=1 to t do
         begin
              read (f,n);
              s:=1;
              suma:=0;
              for i:=1 to n do
                  begin
                       s:=1;
                       k:=i;
                       for j:=1 to i do
                           begin
                                s:=s*k;
                                s:=s mod 10;
                           end;
                       suma:=s+suma;
                       suma:=suma mod 10;
                  end;
              writeln (g,suma);
         end;
     close (f);
     close (g);
end.