Решите в среде программирования Pascal:
Вычислить сумму 1 + 1/2+1/3…+1/n
Начальные значения: n;
Условия: for i: = 1 to n do
Операторы цикла: p:=p + 1/i;

1

Ответы и объяснения

2014-04-14T12:18:37+00:00
Решение
var
n, i: integer;
p: real;

begin
readln(n);
for i:=1 to n do
 p:=p+p/n;
write(p);
end.

Если есть вопросы, пиши.