x + x^3\3+x^5\5+ ......x^11\11 вычислить язык паскаль

Question

x + x^3\3+x^5\5+ ......x^11\11 вычислить
язык паскаль

Answer 1

Var 
  x,i: integer;
  rez: real;
begin
  write ('Введите x:  ');
  readln (x);
  i:=1;
  rez:=0;
  while i<=11  do begin<br>    rez:=rez+power(x,i)/i;
    i:=i+2;
  end;
  writeln ('rez = ',rez);
end.
-----------------------------------------
Введите x:  2
rez = 272.423088023088