Question

P=(1+1/1)(1+1/2)...(1+1/N) составить программу вычисления. на языке паскаль.

Answer 1

Var p:real;
n,i:integer;
begin
readln (n);
p:=1;
for i:=1 to n do
p:=p*(1+(1/i));
writeln (p);
end.

Answer 2

Формула P=(1+1/1)(1+1/2)...(1+1/N) представляет произведение последовательных дробей, где каждое слагаемое равно 1 плюс обратная величина текущего числа.

Программа на языке Паскаль для вычисления данной формулы может быть следующей:

program CalculateP;

var
  N, i: integer;
  P: real;

begin
  write('Введите значение N: ');
  readln(N);
  
  P := 1;
  
  for i := 1 to N do
  begin
    P := P * (1 + 1/i);
  end;
  
  writeln('Результат P = ', P);
end.

В данной программе сначала запрашивается значение N, которое определяет количество слагаемых в произведении. Затем переменной P присваивается значение 1, и в цикле происходит вычисление произведения, умножая P на каждое слагаемое (1 + 1/i). В конце программы выводится результат P.