Cod sursa(job #345873)

Utilizator FLORINSTELISTUOprea Valeriu-Florin FLORINSTELISTU Data 5 septembrie 2009 12:15:30
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
program cifra;
var i,t,j,h:integer;f,g:text;n,p,s:longint;
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 n do begin
      p:=1; j:=1;
      for j:=j to i do p:=(p*i) mod 10;
      s:=p+s;
      n:=n-1;
      end; n:=s mod 10;
      writeln(g,n);s:=0;
      end;
      close(f);
      close(g);
      end.