Cod sursa(job #624094)

Utilizator LorenaSfatSfat Lorena LorenaSfat Data 21 octombrie 2011 18:10:07
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
program cifra;
var f,g:text;
    i,t,uc,j,n,x:integer;
    s,p:longint;
    v:array[1..100] of integer;
function putere(k:integer):integer;
begin
 p:=1;
 for i:=1 to k do
   p:=p*k;
 putere:=p;
end;
Begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
read(f,t);
x:=0;
for i:=1 to t do
 begin
  read(f,n);
  x:=x+1;
  v[x]:=n;
 end;
for j:=1 to x do
 begin
  s:=0;
  for i:=1 to v[j] do
     s:=s+putere(i);
  uc:=s mod 10;
  writeln(g,uc);
 end;
close(f);
close(g);
End.