Вычислите сумму первых n элементов 1-1/2+1/3-1/4+1/5-1/6+

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

2^i = 24

i = 5

ответ. 5 лампочек.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку.