Предмет: Информатика,
автор: 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.
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.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: География,
автор: aleksandr070112
Предмет: Русский язык,
автор: victoria0857
Предмет: Математика,
автор: ALPS
Предмет: Математика,
автор: 199915