Question

составить программу для вычисления суммы 1+1/2+1/3+1/4+...+1/n, если n вводится с клавиатуры​

Answer 1

Program zadanie;

Var n,i,b:integer;

begin

readln(n);

for i:=1 to n do

b+=i;

writeln(b)

end.