Даны 2 числа в двоичном виде. в первом числе поменять местами старшую и младшую части числа. во втором - 1-ый и 4-ый разряды поменять местами с 3-м и 7-мым соответственно. результаты логически сложить и умножить на 4.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.