Задача 55432 ...

5f6c8c02347ae046112d5167

14.10.2020 15:27:08

Дано целое положительное число N. Найти :

N
Σ 2^i / (1+1/2 + 1/3+ ... + 1/i)
i=1

Программа на языке Паскаль

5fb50df964081d1dafcaf70e

18.11.2020 15:24:29

★

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.

Ответ: 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