Question

Se da n,x-numere naturale. Calculati n!*x^n, prin instructiunea for , (PASCAL)

Answer 1

program Hello;

uses Math;

var n,nfact,sum,x,i:integer;

begin

 writeln ('Dati n și x:'); read(n,x);

 nfact:=1;

 for i:=2 to n do begin

   nfact:=nfact*i;

 end;

 writeln(n,'!*',x,'^',n,'=',nfact*power(x,n):2:2);

end.