Помощь - Поиск - Пользователи - Календарь
Полная версия: pascal.нахождение суммы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Allise1
кто-нибудь может помочь?
найти сумму: х+(x^3)/3+(x^5)/5...+(x^15)/15

program r1;

var i:integer;
p,s,x:real;
begin readln(x);
s:=x;
p:=x*x;
i:=3;
while i<=15 do
begin
p:=p*x;
s:=s+p/i;
i:=i+2;
end;
writeln(s:7:2);end.
не могу сделать так, чтоб после x^3 шло x^5 (
Krjuger
p:=p*x*x;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.