Cod sursa(job #217198)

Utilizator verarVera Radovici verar Data 27 octombrie 2008 17:29:27
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var s,s1,j,t,k:integer;
n,i:longint;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
rewrite(g);
reset(f);
 readln(f,t);
 for k:=1 to t do
 begin
 readln(f,n);
 s1:=0;
 for i:=1 to n do
 begin
   s:=1;
   for j:=1 to i do
   s:=s*i mod 10;
   s1:=(s1+s)mod 10;
 end;
 writeln(g,s1);
 end;
 close(g);
 close(f);
end.