Сделать практическую работу.

Если проткнуть листок после 0 сгибаний (т.е. без сгибаний), то будет одна дырка. если после 1 - будет две дырки.  если после n-го сгибания и после первого протыкания  имеется x дырок, то после (n + 1)-го сгибания и первого прокола имеется 2 * x дырок (т.к. листок сгибается пополам, то количество протыкаемых слоёв удваивается). значит, x = 2^n. т.е. 2 протыкания после n и m сгибания дадут 2^n + 2^m дырок.  переведём 40 в двоичную систему: 40 = 101000. т.е. нужно проткнуть после 3 и 5 сгибания.

1) var   a, b, c, d, max: integer;   begin   readln(a, b, c, d);   if(a > b) and (a > c) and (a > d) then max : = a   else if(b > a) and (b > c) and (b > d) then max : = b   else if(c > a) and (c > b) and (c > d) then max : = c   else max : = d;   write(max); end. 2) var a, b, c, max: integer;   begin   readln(a, b, c);   if(a > b) and (a > c) then max : = a   else if(b > a) and (b > c) then max : = b   else max : = c;   write(max); end.