Дано действительное x. Вычислить: (x-1)(x-3)(x-7)*...*(x-63)/(x-2)(x-4)(x-8)*...*(x-64). - вопрос №68185913763248 от ulianiabelka 31.07.2022 09:25

Question

Другие предметы: Дано действительное x. Вычислить: (x-1)(x-3)(x-7)*...*(x-63)/(x-2)(x-4)(x-8)*...*(x-64). (программа Паскаль)

ulianiabelka · Answer

uses crt;
var x,d:real;
    i:integer;
begin
clrscr;
  write('x=');
   readln(x);
  i:=1;d:=1;
   while i<=63 do
    begin
      d:=d*(x-i);
     inc(i,2);
    end;
  writeln('D = ',d:0:2);
readkey;
end.