Question

For10. дано целое число N (>0). найти сумму 1+1/2 +1/3...+1/N

Answer 1

var n,i:integer;
sum:real;
begin
writeln('Введите N= ');
read(n);
sum:=1;
for i:=1 to n do
sum:=sum+1/i;
writeln('Сумма равна ',sum);
end.