Процедурное программирование.
| z=a;Do[Print[z*=z+i],{i,3}]a (1+a)a (1+a) (2+a (1+a))a (1+a) (2+a (1+a)) (3+a (1+a) (2+a (1+a)))Clear[z] |
Введение в систему Mathmatica 3.0
| z=a;Do[Print[z*=z+i],{i,3}]a (1+a)a (1+a) (2+a (1+a))a (1+a) (2+a (1+a)) (3+a (1+a) (2+a (1+a)))Clear[z] |