Cod sursa(job #334182)

Utilizator Gabbby93Gabbby93 Gabbby93 Data 25 iulie 2009 13:53:35
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
program cifra;
var f,g:text;
    n,v:array[1..1001] of 1..maxlongint;
    t:1..30000;
    i,k,nr,s:word;
    x:array[1..1001] of 0..9;



begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for i:=1 to t do
   readln(f,n[i]);
k:=0;
s:=0;
repeat
   k:=k+1;
   nr:=n[k];
   for i:=1 to nr-1 do
      nr:=nr*k;
   s:=s+nr;
   v[k]:=nr;
until k=t;
k:=0;
repeat
   k:=k+1;
   s:=0;
   for i:=1 to k do
      s:=s+v[i];
   x[k]:=s mod 10;
until k=t;
for i:=1 to k do
   writeln(g,x[i]);
close(f);
close(g);
end.