Var a1,a2,a3,a4,a5,max: integer; begin writeln ('введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); begin if (a1> a2) then max: = a1else max: =a2; if (a2> a3) then max: =a2else max: =a3; if (a3> a4) then max: =a3else max: =a4; if (a4> a5) then max: =a4else max: =a5; end; writeln (max); end. аналогично с минимальным числом.var a1,a2,a3,a4,a5,min: integer; beginwriteln ('введите 5 чисел через пробел: '); readln (a1,a2,a3,a4,a5); beginif (a1< a2) then min: = a1else min: =a2; if (a2< a3) then min: =a2else min: =a3; if (a3< a4) then min: =a3else min: =a4; if (a4< a5) then min: =a4else min: =a5; end; writeln (min); end. можно так же решить с массива, если нужно пишите.
Matveevanastya0170
22.12.2021
Построим битовые цепочки для первого и второго уравнений. они одинаковые: x1 1 0 0 0 0 0 0 x2 1 1 0 0 0 0 0 x3 1 1 1 0 0 0 0 x4 1 1 1 1 0 0 0 x5 1 1 1 1 1 0 0 x6 1 1 1 1 1 1 0 y1 1 0 0 0 0 0 0 y2 1 1 0 0 0 0 0 y3 1 1 1 0 0 0 0 y4 1 1 1 1 0 0 0 y5 1 1 1 1 1 0 0 y6 1 1 1 1 1 1 0 в 3 уравнении если x1=1, то y1 обязательно должен быть равен 1. если x1=0, значит y1 может быть равен и 1, и 0. получается, что первому столбцу в цепочке иксов соответствует один набор в цепочке игриков, остальным шести столбцам иксов - семь столбцов игриков. получается, что количество решений равно 1 + 6*7 = 43
поэтому в двоичной записи числа 56 три единицы.