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

Предыдущий
вопрос Следующий
вопрос

program Summation;
var
n, i: integer;
p: real;
begin
p := 0;

write('Enter a value for n: ');
readln(n);

for i := 1 to n do
begin
p := p + 1/i;
end;

writeln('The sum of the series is: ', p:0:2);
end.