profile
Опубликовано 6 лет назад по предмету Информатика от bound2

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

  1. Ответ
    Ответ дан Аккаунт удален
    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.
Самые новые вопросы