Cod sursa(job #154829)

Utilizator shmecheruShmecheru shmecheru Data 11 martie 2008 15:00:49
Problema Cifra Scor 40
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.48 kb
program sdfgh;
var
f,g:text;
t,i:integer;
x:string;
c,j,er,n,uc,s,e:word;
begin
 assign(f,'cifra.in');
 reset(f);
 assign(g,'cifra.out');
 rewrite(g);
 readln(f,t);
 for i:=1 to t do
   begin
     readln(f,x);
     delete(x,1,length(x)-2);
     val(x,c,er);
     s:=0;
     for j:=1 to c do
      begin
      er:=1;
      for e:=1 to j do
        er:=(er*j) mod 10;
      s:=(s+er) mod 10;
     end;
     writeln(g,s);
    end;
    close(f);
    close(g);
  end.