Question

Составить программу нахождения произведения чисел: 1/2, 2/3 ... 9/10   Язык: Pascal

Answer 1

Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.

Answer 2

А если немножко подумать сначала?

$\displaystyle \frac{1}{2}\times \frac{2}{3} \times \frac{3}{4}\times ... \times \frac{8}{9}\times \frac{9}{10}= \frac{1\cdot2\cdot3\cdot ... \cdot8\cdot9}{2\cdot3\cdot4\cdot ... \cdot9\cdot10}= \frac{1}{10}$

Так что нужно просто вывести 0.1 ))))

begin
   Writeln('0.1')
end.

Answer 3

Конечно, вот пример программы на языке Pascal для нахождения произведения чисел 1/2, 2/3, ..., 9/10:

pascalCopy code
program НахождениеПроизведения;

var
  i: integer;
  product: real;

begin
  product := 1.0; // Инициализируем произведение единицей

  for i := 1 to 9 do
  begin
    product := product * (i / (i + 1)); // Умножаем текущее число на предыдущее произведение
  end;

  writeln('Произведение чисел: ', product:0:2);
end.

В этой программе используется цикл for, который перебирает значения i от 1 до 9. В каждой итерации вычисляется новый элемент произведения путем умножения текущего числа на предыдущее произведение, деленное на i+1. Начальное значение произведения установлено равным 1.0.

Выводится результат, округленный до двух знаков после запятой. Вы можете изменить формат вывода, если требуется больше или меньше знаков после запятой.