Cod sursa(job #493346)

Utilizator MomikutzMomeu Marius Momikutz Data 17 octombrie 2010 20:38:38
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
var
        n,s,i,j,p,k:integer;
        x:array[1..30000] of integer;
begin
        readln(n);
        for i:=1 to n do
                readln(x[i]);

        for i:=1 to n do
        begin
                s:=0;
                for j:=1 to x[i] do
                begin
                        p:=1;
                        for k:=1 to j do
                                p:=(p mod 10)*j;
                        s:=s+p mod 10;
                end;
                write(s mod 10);
        end;
readln;
end.