Дано действительное число 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
begin
o:=(x-a)/(x-b);
a:=a-1;
b:=b*2;
end;
writeln(o=,o);
end.

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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.