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

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

Answer 3

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

Answer 4

Я заметил))))

Answer 5

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

Answer 6

Я не ставлю нарушений команде модераторов, спамаутам и Знатокам. Но если просите, могу.