Cod sursa(job #1604348)

Utilizator SherlockHolmesPlesca Vlad SherlockHolmes Data 18 februarie 2016 10:21:22
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program cifra;
var a,b:text;
    i,n,j,s,p,m:integer;
begin
p:=1;
assign(a,'cifra.in');
reset(a);
assign(b,'cifra.out');
rewrite(b);
readln(a,n);
for i:=1 to n do begin
  readln(a,m);
  for i:=1 to m do begin
    for j:=1 to i do p:=p*i;
    inc(s,p);
  p:=1;
  end;
  p:=1;
  writeln(b,s mod 10);
  s:=0;
end;
close(a);
close(b);
end.