Составить программу вычисления значения выражения y=1+1/2+1/3+/

program summa;

var i: integer; y: real;

begin

y: =0;

for i: =1 to 20 do y: =y+1/i;

write('y=',y: 7: 2); {форматный вывод - на ответ приходится 7 символов,}

end.                   {из которых 2 знака после запятой}

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

35 - 10 = 25 чисел нужно для записи результата

2^ i = 25

i = 5

для кодирования 25 чисел нужно 5 бит

27 * 5 = 135 бит

ответ. 135 бит.

тогда наверное будет:

2^i = 35

i = 6 бит

27 * 6 = 162 бит

ответ. d) 162 бит

но это не верно. т.к. мы кодируем 25 числе, а не 35. возможно в ответах опечатка