Cod sursa(job #1147295)

Utilizator braisaMiron Raisa braisa Data 19 martie 2014 18:41:19
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.87 kb
program cifra;
  var fi,fo:text;
      t,i,x,j:longint;
      code:integer;
      a,sum:array[1..1000] of longint;
      s:array[1..1000] of char;
  function put(n:integer):longint;
    var p:integer;
    begin
      p:=1;
      for i:=1 to n do p:=p*n;
      put:=p
  end;
  function suma(n:integer):longint;
    var k:integer;
    begin
       k:=0;
       for i:=1 to n do begin
                         k:=k+put(i);
                         end;
       suma:=k;
    end;
begin
  assign(fi,'cifra.in');reset(fi);
  assign(fo,'cifra.out');rewrite(fo);
  readln(fi,t);
  for i:=1 to t do readln(fi,s[i]);
  for i:=1 to t do begin
                   val(s[i],x,code);
                   a[i]:=x;
                   end;
  for i:=1 to t do
    for j:=1 to a[i] do
     sum[i]:=suma(j);
  for i:=1 to t do
    writeln(fo,sum[i] mod 10);
  close(fo);
end.