Cod sursa(job #159562)
| Utilizator | Data | 14 martie 2008 11:15:22 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.44 kb |
var n,m,t,i:integer;
f,g:text;
function p(n,m:integer):longint;
begin
if m=0 then p:=1
else p:=n*p(n,m-1);
end;
function suma (n:integer):longint;
begin
if n=0 then suma:=0
else suma:=p(n,n)+suma(n-1);
end;
begin
assign (f,'cifra.in');
assign (g,'cifra.out');
reset (f);
readln (f,t);
rewrite (g);
for i:=1 to t do begin
readln (f,n); writeln (g,suma(n) mod 10);
end;
close (f);
close (g);
end.