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

Question

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

Answer 1

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



Так что нужно просто вывести 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.

Comments

ой, я сумму вывел

---

Можешь поставить нарушение? Просто кнопки изменить нету