Cod sursa(job #879272)

Utilizator NigramMargin Razvan Nigram Data 15 februarie 2013 10:35:21
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
var f,g:text;
i,t,n,k,s,j,copie:integer;
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;j:=0;
        repeat
                j:=j+1; copie:=j;
                for k:=2 to j do copie:=copie*j;
                s:=s+copie;
        until j=n;
        writeln(g,s mod 10);
        end;
close(f);close(g);
end.