Question

Плиз, помогите с Паскалем!
Составьте программу для решения задачи:
Дано натуральное число n. Найти сумму s=1+1/2+1/3+... +1/n.

Answer 1

program raf105;

var

 n: integer;

 sum: real;

begin

 write('n = ');

 readln(n);

 for var i:=1 to n do

   sum:= sum + 1/i;

 writeln('Сумма: ',sum);

end.

PascalABC