Срочноо, помогите!!Напишитепрограмму В ПАСКАЛЕ вычисления выражения: s=x^3+x^5+x^n, где x и

Power для возведения в ступень использовать можно?

нет

Написать свою функцию

?.

стооооп, можно,просто перепуточки вышли

Var
X,N:real;
Begin
Write('x = ');ReadLn(x);
Write('n = ');ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+power(x,n));
End.



С подмогою функции возведения в ступень, при условии, что основание - число вещественное, а показатель - целое.


Function St(O:real;P:integer):real;
Begin
result:=1;
For P:= 1 to P do
    result:=result*P;
End;

Var
X:real;
n:integer;
Begin
Write('x = ');
ReadLn(x);
Write('n = ');
ReadLn(n);
WriteLn('S = ',x*x*x*(1+x*x)+St(x,n));
End.