Cod sursa(job #1122972)
Utilizator | Data | 25 februarie 2014 21:37:57 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
var f,g:text;
a:array[1..20] of integer;
t,i,p,j,k,s:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g); readln(f,t);
for i:=1 to t do
readln(f,a[i]);
for i:=1 to t do
begin s:=0;
for j:=1 to a[i] do
begin
p:=1;
for k:=1 to j do
p:=p*j;
s:=s+p;
end;
write(g,s mod 10,' ');
writeln(g);
end;
close(f); close(g);
end.