Pagini recente » Istoria paginii utilizator/ana_ilinca | Cod sursa (job #1587788) | Statistici Calin Pelcea (p1tagora) | Istoria paginii utilizator/silviucostin | 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.