Ответ(ы) на вопрос:
ГостьVar X,y:real;
n:integer;
Begin
Write('X = ');ReadLn(X);
y:=0;
For n:=1 to 10 do
y:=y+Power(X,n)/(n*Power(2,n));
WriteLn('y = ',y);
End.
Не нашли ответ?
Похожие вопросы