1. Найти s=1+1/2 +1/3 +1/4 +…+1/n , n- вводится с клавиатуры 2. Найти сумму N чисел, вводимых с клавиатуры.

1.var n,i:integer; s:real;beginwrite('N='); readln(n);s:=0;for i:=1 to n do s:=s+1/i;writeln('S=',s:7:3);end.2.var n,i,a,s:integer;beginwrite('N='); readln(n);s:=0;for i:=1 to n do begin write('a='); readln(a); s:=s+a; end;writeln('S=',s);end.