Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится - вопрос №335511115299701 от b00777 28.12.2020 05:06

Question

Информатика: Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится с клавиатуры

b00777 · Answer

//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.