Cod sursa(job #1174404)

Utilizator sorin36lica sorin sorin36 Data 22 aprilie 2014 18:40:37
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.39 kb
var n,i,a,s,j,p:integer;
    f,g:text;
function suma(b:integer):integer;
var k:integer;
begin
 p:=1;
 for k:=1 to b do
  p:=p*b;
 suma:=p;
end;
begin
 assign(f,'cifra.in');
 reset(f);
 assign(g,'cifra.out');
 rewrite(g);
 readln(f,n);
 for i:=1 to n do  begin
  readln(f,a);
  s:=0;
  for j:=1 to a do
    s:=s+suma(j);
  writeln(g,s mod 10);
  end;
 close(f);
 close(g);
end.