Cod sursa(job #556140)

Utilizator Ciurea93Ciurea Ionut Ciurea93 Data 15 martie 2011 23:04:06
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
var a,n,i,j,s,k:longint;
begin
  assign(input,'cifra.in');reset(input);
  assign(output,'cifra.out');rewrite(output);
  readln(input,n);
  for i:=1 to n do
    begin
      readln(input,a);
      s:=0;
      for j:=1 to a do
        begin
        k:=trunc(exp(j*ln(j)));
        s:=s+k;
        end;
    writeln(output,s mod 10);
  end;
end.