Cod sursa(job #432143)
| Utilizator | Data | 1 aprilie 2010 21:26:22 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.74 kb |
var f,g : text;
t : -1..30002;
n, i, s2 : longint;
s1 : byte;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
rewrite(g);
reset(f);
readln(f,t);
for t:=1 to t do begin readln(f,n);
s1:=0;
for n:=1 to n do begin s2:=1;
for i:=1 to n do begin s2:=s2*n;
s2:=s2 mod 10;
end;
s1:=s1+s2;
end;
s1:=s1 mod 10;
writeln(g,s1);
end;
close(g);
close(f);
end.