N
Σ 2^i / (1+1/2 + 1/3+ ... + 1/i)
i=1
Программа на языке Паскаль
var
b: real;
a, i: integer;
begin
writeln('Введите число');
readln(a);
b := 0;
for i := 1 to a do
writeln(1/i); // Выводит все числа до значения 1/a
writeln;
b:=(1/i)+b;
writeln(b); // Выводит сумму чисел
end.
Ответ: program for10; var b: real; a, i: integer; begin writeln('Введите число'); readln(a); b := 0; for i := 1 to a do writeln(1/i); // Выводит все числа до значения 1/a writeln; b:=(1/i)+b; writeln(b); // Выводит сумму чисел end.pr