Вычислить сумму +^3/3+^5/5+⋯+^11/11, x вводится - вопрос №530003533551111 от Gerri11 17.05.2020 23:09

Question

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

Gerri11 · 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.