Cod sursa(job #13845)

Utilizator jdvJecan Daniel Valerian jdv Data 7 februarie 2007 16:56:46
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.89 kb
{ problema cifra - infoarena.devnet.ro }

program cifra_infoarena;
type sir=array[1..3000] of longint;

var n:longint;
    f,g:text;
    ult:byte;
    a:sir;
    t,i:longint;
  {  t1:longint;
    time:longint absolute $0:$046C;   }

procedure citire(var a:sir);
begin
    assign(f,'cifra.in');  reset(f);
    readln(f,t);
  for i:=1 to t do readln(f,a[i]);
close(f);
end;

procedure cifra(n:longint);
var p:longint;
    k,i1:longint;
begin

     ult:=0;
  for i1:=1 to n do begin
                   p:=1;
   for k:=1 to i1 do p:=p*(i1 mod 10);
   ult:=ult+(p mod 10);
   if ult > 9 then ult:=ult mod 10;
                    end;


end;


begin
 { t1:=time;  }
  citire(a);
 assign(g,'cifra.out');  rewrite(g);

 for i:=1 to t do begin
 cifra(a[i]);
 writeln(g,ult);
      end;
  close(g);
 {  writeln('Timer ', ((time-t1)/18.2):6:2, ' secunde');
readln;   }
end.