Question

Сделать в паскале: Найти Р:= 1/2*1/4*1/6*…*1/20

Answer 1

Program h;

var i:integer;

p:real;

begin

i:=0;

while i<=20 do

begin

i:=i+2;

p:=p+1/i;

end;

writeln(p);

end.

Answer 2

Для вычисления значения выражения Р в Паскале, можно воспользоваться циклом. Вот пример кода:

pascalCopy code
program CalculateProduct;
var
  P: Real;
  i: Integer;
begin
  P := 1.0;
  
  for i := 2 to 20 step 2 do
  begin
    P := P * (1 / i);
  end;
  
  writeln('Результат: ', P);
end.

В этом коде мы начинаем с P равным 1.0 и затем используем цикл для умножения P на 1/2, 1/4, 1/6, и так далее до 1/20. Результат будет выведен на экран.