Cod sursa(job #118392)
Utilizator | Data | 24 decembrie 2007 22:02:50 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
var s,n,x,i,j,k,t:longint;
f,g:text;
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;
for j:=1 to n do
begin
x:=1;
for k:=1 to j do x:=x mod 10 * j;
s:=s+x mod 10;
end;
writeln(g,s mod 10);
end;
writeln(g);
close(g);
end.