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




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


решение вопроса

+7
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.
ответил 18 Дек, 18 от Olenka

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.