Вывести на экран значения частей по 10 в ряд, сумму и

Вывести на экран значения частей по 10 в ряд, сумму и творенье.
y=1 + x^2/1 - x^1/2 + x^4/3 - x^3/4 + x^6/5 - x^5/6 +

Задать свой вопрос
1 ответ
var n,i:integer;
nbsp;nbsp;nbsp;nbsp;x,s,t:real;
begin
write(x=);
readln(x);
write(n=);
readln(n);
s:=1;
for i:=1 to n do
if odd(i) then s:=s+power(x,i+1)/i
else s:=s-power(x,i-1)/i;
write(S=,s:0:2)
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт