Информатика, опубликовано 2018-08-22 20:57:15 by Гость
Вычислить произведение: 1/2*1/3*...*1/n
Ответ оставил Гость
Var n,i:integer;
p:real;
begin
write(n = );
readln(n);
p:=1;
for i:=1 to n do p:=p*(1/i);
writeln(p = ,p);
end.
Пример:
n = 5
p = 0.00833333333333333
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.