Cod sursa(job #13852)

Utilizator jdvJecan Daniel Valerian jdv Data 7 februarie 2007 17:02:02
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.75 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;
    i,t:longint;

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
  citire(a);

 assign(g,'cifra.out');  rewrite(g);
 for i:=1 to t do begin
 cifra(a[i]);
 writeln(g,ult);
      end;
  close(g);
end.