Как сделать, чтобы здесь понижался степень: чтобы при каждом цикле программы, x^n > x^n-1 > x^n-2 и тд var x,a,z,s: real; n,i: integer; begin writeln('введите a,x: '); readln(a,x); write('введите n: '); readln(n); s: =0; for i: =1 to n do begin z: =(exp(ln(a)*i)*exp(ln(x)* вот здесь -> n)); s: =s+z; end; readln; writeln('ответ: ',s: 2: 2); end.

konstantinseme2    3   05.04.2019 23:39    2