Cod sursa(job #277410)

Utilizator Dudy91Gogoase Vlad Dudy91 Data 11 martie 2009 18:31:36
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.6 kb
 Program dudy;
   var t,n,i,j,p,x,b,s,z: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 do
       begin
        read(g,n);
        s:=0;
         For j:=1 to n do
          Begin;
           x:=1;
            For z:=1 to j do
             begin
              x:=x*j;
             end;
           s:=s+x;
          end;
          b:=s mod 10;
          writeln(f,b);
          writeln(f,s);
          writeln(f,'w');
       end;

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