Вычислить произведение: 1/2*1/3*...*1/n

Вычислить произведение: 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
Гость
Program kek; var s.i,n:integer; s:=0; readln (n); for i to n do s:=s+1/i; write ('сумма равна  ', s); end. 
Не нашли ответ?
Ответить на вопрос
Похожие вопросы