Cod sursa(job #353061)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 3 octombrie 2009 23:45:38
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.46 kb
program p7646;
var  f,g:text;t,r,q:longint;
   v:array[1..5000]of longint;
function cifra(m:longint):longint;
var s,p,i,j:longint;
begin
 s:=1;p:=0;
  for i:=1 to m do begin
  s:=i;
   for j:=1 to i-1 do
   s:=s*i;
   p:=p+s;end;cifra:=p mod 10;end;
begin
    assign(f,'cifra.in');reset(f);
    assign(g,'cifra.out');rewrite(g);
    readln(f,t);
    for q:=1 to t do begin readln(f,v[q]);
    r:=cifra(v[q]);writeln(g,r);  end;
    close(f);close(g);
end.