Дано действительное число x....

Question

Дано действительное число x. Вычислить:
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64)
pascal abc
Вот как моя программа выглядит, но она не работает.
program fggt;
var a,b,o,x:real;
begin
writeln('x');
readln(x);
a:=1;
b:=2;
while a<=63 do<br>begin
o:=(x-a)/(x-b);
a:=a-1;
b:=b*2;
end;
writeln('o=',o);
end.

Answer 1

Не мудрствуйте лукаво:)

var
  x, p, l: real;
  i: integer;
begin
  p := 1; l := 1;
  for i := 1 to 64 do
    if (i mod 2 = 1) then
      p := p * (x - i) //Числитель
    else
      l := l * (x - i); //Знаменатель
  writeln(p / l);
end.

Comments

нужно именно на вайл.

---

вайл?

---

While