Pagini recente » Monitorul de evaluare | Istoria paginii runda/pregatire_lot2_juniori | Cod sursa (job #2187614) | Diferente pentru despre-infoarena intre reviziile 33 si 36 | Cod sursa (job #1122968)
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,' ');
end;
close(f); close(g);
end.