Cod sursa(job #371247)
| Utilizator | Data | 4 decembrie 2009 17:46:43 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.45 kb |
var
fin,fout:text;
i,t:integer;
n:longint;
function calc(n:longint):longint;
var s,tr:longint;
i,j:integer;
begin
s:=0;
for i:=1 to n do begin
tr:=1;
for j:=1 to i do
tr:=tr*i;
s:=s+tr;
end;
calc:=s;
end;
begin
assign(fin,'cifra.in');
reset(fin);
assign(fout,'cifra.out');
rewrite(fout);
readln(fin,t);
for i:=1 to t do begin
readln(fin,n);
writeln(fout,calc(n) MOD 10);
end;
close(fin);close(fout);
end.
