Предмет: Информатика, автор: bound2

Паскаль
9 класс
7 задача!

Приложения:

Ответы

Автор ответа: Аноним
0
var n:integer;
var x,P:Real;
begin  writeln ('введите x'); 
  Readln(x); 
  P:=1; 
  for n:=1 to 6 do P:=P * (x-(power (2,n)-1))/(x-(power(2,n)));  
  writeln ('P= ',P );
end.
Похожие вопросы
Предмет: Биология, автор: Аноним
Предмет: Русский язык, автор: victoria0857