Cod sursa(job #264576)

Utilizator vyrkolakosMarcu Sabin vyrkolakos Data 22 februarie 2009 13:19:45
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
 program Cifra;

        var     f,x:text;
                t:word;
                n,i,j,c:longint;
                p:longint;
                uf:byte;

Begin

        assign(f,'cifra.in');   reset(f);
        assign(x,'cifra.out');  rewrite(x);
        readln(f,t);
        for i:=1 to t do begin
                readln(f,n);
                uf:=0;
                for j:=1 to n do begin
                    p:=1;
                    for c:=1 to j do begin
                        p:=p*j;
                        p:=p mod 10; end;
                    uf:=(uf+p mod 10) mod 10;
                                 end;
                writeln(x,uf);
                         end;
        close(f);               close(x);

end.