3. Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число N. Вычислить: S = + одна вторая + одна третья + одна четвертая и.т.д
Вот как-то так с костылями, ибо нету под рукой программы var i, z, a:integer;var N, S:real;beginreadln(z);a:=0;N:=1/2;for i:=0 to z do begina:=a+1;S:=S+N;N:=1/(2+a);end;print(S);end.