Question

ПОМОГИТЕ СРОЧНО! 8 задание
.
.
.
..

Answer 1

Ответ:

8.1)

var

 M,i,ans:integer;

begin

 ans := 1;

 read(M);

 for i := 1 to M do begin

   ans := ans * i;

 end;

 write(ans);

end.

8.2)

var

 N,K,i:integer;

begin

 read(N);

 read(K);

 for i := 1 to 5 do begin

   write( N*Power((1+K/100),i),' ')

 end;

end.