Вычислить систему ряда. Паскаль.

Question

Azizjon · Accepted Answer

ну как-то так 
n := 3; 
x0 := x; 
 
цикл 
begin 
 s := s + x/n; 
 n := n + 2; 
 x := x*sqr(x0); 
end; 
 
P.S. и не систему, а сумму, млять))))

Артем Суюшев · Answer

var k,r,i:integer; S,x:real; 
 
function stepen(x:real;r:integer):real; 
var j:integer; g:real; 
begin 
g:=x; 
for i:=2 to r do 
g:=g*x; 
stepen:=g; 
end; 
 
begin 
read(x); 
S:=x/3; 
k:=3; 
while k<=17 do 
begin 
S:=S + stepen(x,k-2)/k; 
k:=k+2; 
end;

writeln(k); 
end.

Olga · Answer

Азамат, учись у Кости :D 
Там всё как надо!)