<h2>PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)</h2>
- begin
- var arr := SeqRandomInteger(ReadInteger('N = ')).ToArray;
- arr.Println;
- Writeln('< 50: ', arr.Where(x -> (x < 50)).Average:3:2);
- Writeln('>= 50: ', arr.Where(x -> (x >= 50)).Average:3:2);
- end.
Вообще, получается, что ты 4 раза пройдешь по телу цикла получая сначала
z=47/4
2)z=137/8
3)z=317/16
4)z=677/32
И фактически, после 4 шага он выйдет из цикла и z у тебя будет = 677/32. по-моему так)
15-9=6 л стало больше
т к некоторые листы разрезали на 3 части, то каждый лист дал +2
6/2=3 листа разрезали
Ответ 3 листа