Cod sursa(job #344556)

Utilizator theonlyone10oprea cosmin dumitru theonlyone10 Data 30 august 2009 15:58:15
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.45 kb
program cifra;
var i,t,j,h:integer;f,g:text;n,s,p:real;
begin
      assign(f,'cifra.in');reset(f);
      assign(g,'cifra.out');rewrite(g);
      readln(f,t);h:=1;
      for h:=h to t do begin
      readln(f,n); i:=1;
      for i:=i to trunc(n) do begin
      p:=1; j:=1;
      for j:=j to i do p:=trunc(p*i);
      s:=trunc(p+s);
      n:=n-1;
      end;
      writeln(g,trunc(s) mod 10);s:=0;
      end;
      close(f);
      close(g);
      end.