составить программу вычисления суммы. У меня есть набросок, но тут что-то не так
var s, p, x, z: real; l, m, n, k: integer;
begin
begin
write('x,k ');
read(x,k);
z:=exp(k*LN(x));
end;
if m > n then
begin
l:=n;
n:=m;
m:=l
end;
s:=0;
for l:= m to n do
begin
p:=p*z/l;
s:=s+p
end;
writeln(s)
end.

MarcoMCorejz    1   05.04.2021 17:04    0