Так как A, B, C, D, E - различные цифры в порядке убывания, то A не может быть меньше 4 (в этом случае цифры - 4, 3, 2, 1, 0).
Пусть А=4, тогда 4*4+2 = 16+2 = 18 - не подходит Пусть А=5, тогда С может быть 3 или 2. Проверяем: 5*5+3=28, 5*5+2=27 - не подходит Пусть А=6, 6*6+С = 36+С. Чтобы получить в выражении число из двух одинаковых цифр, С должно быть = 8 (получим 44), но С должно быть <= 4 - не подходит. Пусть А=7, 7*7+С=49+С=49+6=55,но С должно быть <= 5 - не подходит Пусть А=8, 8*8+С=64+2=66 - может быть (в этом случае В=6, D=1, E=0). Проверим второе выражение: 86*8+1=688+1=689. Здесь должно получиться 666, значит А=8 тоже не подходит.
Честно говоря, я пытался решить чисто логическим путём, даже вывел некоторые условия существования примера, но в итоге мне надоело, и я написал программу, которая перебирает все возможные варианты до тех пор, пока не получится равенство.
Закрасить нц пока справа свободно вправо если вправо свободно то закрасть кц нц пока слева свободно влево кц вниз вниз закрасить нц пока справа свободно вправо если вправо свободно то закрасть кц нц пока слева свободно влево кц вниз закрасить вниз вниз закрасить нц пока справа свободно вправо если вправо свободно то закрасть кц нц пока слева свободно влево кц вниз
№2 Правильно будет : Program first; Var X:array [1..8] of integer; Z,i:integer; begin for i:=1 to 8 do X[i]:=i*i; Z:=X[1]+X[4]; write(Z); end. Выведено будет : 17
№3 D - вычисляет сумму положтельных елементов масива