file $=$ fopen$(\text{'}$answer$.$txt$\text{'},\text{'}$w$\text{'})$;

for k$=1$:$1$:$10$

n$=$k;

fact$=1$;

for i$=1$:$1$:n

fact$=$fact$*$i;

end

fprintf$($file$,\text{'}\%$d$!=\%$d

$\text{'},$n$,$fact$)$;

end

fclose$($file$)$;