Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится с клавиатуры
Answers & Comments
vladmor
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var x,xn,i,j:integer; s:real; begin readln(x); i:=1; while i<=11 do begin xn:=1; for j:=1 to i do xn:=xn*x; s:=s+xn/i; i:=i+2; end; writeln(s); end.
Answers & Comments
var x,xn,i,j:integer;
s:real;
begin
readln(x);
i:=1;
while i<=11 do begin
xn:=1;
for j:=1 to i do xn:=xn*x;
s:=s+xn/i;
i:=i+2;
end;
writeln(s);
end.