Cod sursa(job #102362)
Utilizator | Data | 14 noiembrie 2007 12:23:02 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 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(t);
for l := 1 to t do
begin
readln(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(s mod 10);
s:=0;
end;
{close(fo); }
end.