Объяснение:
Смущает последнее слагаемое, выбивается из закономерности.
должно быть 11х¹⁰ или 10х⁹
program sumxproj;
uses math;
var
x,Y:real;
n,i:integer;
begin
Write('Введите x=');
readln(x);
n:=10;
Y:=0;
for i:=1 to n do
Y:=Y+(i+1)*power(x,i);
writeln('Y=',Y:6:2);
readln;
end.
Объяснение:
Смущает последнее слагаемое, выбивается из закономерности.
должно быть 11х¹⁰ или 10х⁹
program sumxproj;
uses math;
var
x,Y:real;
n,i:integer;
begin
Write('Введите x=');
readln(x);
n:=10;
Y:=0;
for i:=1 to n do
Y:=Y+(i+1)*power(x,i);
writeln('Y=',Y:6:2);
readln;
end.