Cod sursa(job #277419)

Utilizator Dudy91Gogoase Vlad Dudy91 Data 11 martie 2009 18:37:32
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
 Program dudy;
   var t,n,i,j,p,x,b,s,z,y:longint;
       g,f:text;
   begin
   assign (g,'cifre.in');
   assign (f,'cifre.out');
   reset (g);
   rewrite (f);
     read (g,t);


      For i :=1 to t+1 do
       begin
        read(g,n);
        s:=0;
         For j:=1 to n do
          Begin;
           x:=1;
           y:=0;
            For z:=1 to j do
             begin
              x:=x*j;
              y:=x mod 10;
             end;
           s:=s+y;
          end;
          b:=s mod 10;
          writeln(f,b);

         { writeln(f,s);
          writeln(f,'w');}
       end;

       close(f);
 close(g);
 end.