Cod sursa(job #251464)
Utilizator | 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.