Cod sursa(job #493350)

Utilizator MomikutzMomeu Marius Momikutz Data 17 octombrie 2010 20:48:25
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
var
        n,s,i,j,p,k:integer;
        x:array[1..30000] of integer;
        fin,fout:text;
begin
        assign(fin,'cifra.in');
        reset(fin);
        assign(fout,'cifra.out');
        rewrite(fout);
        readln(fin,n);
        for i:=1 to n do
                readln(fin,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(fout,s mod 10);
        end;
        close(fin);
        close(fout);
end.