Cod sursa(job #102372)
| Utilizator | Data | 14 noiembrie 2007 12:32:25 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.44 kb |
var
i ,j ,n ,p ,s ,t ,l: longint;
fi,fo:text;
begin
assign(fi,'cifra.in');reset(fi);
assign(fo,'cifra.out');rewrite(fo);
readln(fi,t);
for l := 1 to t do
begin
readln(fi,j);
for n:= 1 to j do
begin
p := 1;
for i := 1 to n do
begin
p := p*n mod 10;
if i = n then
s:= s+p;
end;
end;
writeln(fo,s mod 10);
s:=0;
end;
close(fo);
end.
