Cod sursa(job #493346)
Utilizator | Data | 17 octombrie 2010 20:38:38 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.52 kb |
var
n,s,i,j,p,k:integer;
x:array[1..30000] of integer;
begin
readln(n);
for i:=1 to n do
readln(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(s mod 10);
end;
readln;
end.