Question

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

Answer 1

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

$\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 2

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.