Cod sursa(job #251464)

Utilizator muskMuscalu Alexandru musk Data 2 februarie 2009 19:04:38
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
var f,g:text;
s,i,k,n,t,x,j:integer;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do
    begin
    s:=0;
    readln(f,n);
    for j:=1 to n do
        begin
        x:=1;
        for k:=1 to j do
                x:=(x mod 10)*(j mod 10);
        s:=(s mod 10)+(x mod 10);
        end;
   writeln(g,(s mod 10));
   end;
close(f);
close(g);
end.