Cod sursa(job #371247)

Utilizator iSeLastiSeLast iSeLast 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.