Всего маленьких кубиков 5⋅5⋅5=125. По три окрашенных грани может быть только у угловых кубиков; их всего 8. По две окрашенных грани может быть только у кубиков, которые расположены на ребрах куба, но не в вершинах. На каждом ребре таких кубиков три. Ребер у куба 12, значит таких кубиков 36. Одна закрашенная грань будет у кубиков, которые лежат на поверхности каждой из граней куба, за исключением крайних. На каждой грани таких кубиков 9. У куба 6 граней, значит таких кубиков 5⋅6=54. Полностью некрашенными остались кубики, целиком лежащие "внутри" исходного куба. Они образуют куб размером 3х3х3, и их всего 3⋅3⋅3=27. это правильный ответ
По три окрашенных грани может быть только у угловых кубиков; их всего 8. По две окрашенных грани может быть только у кубиков, которые расположены на ребрах куба, но не в вершинах. На каждом ребре таких кубиков три. Ребер у куба 12, значит таких кубиков 36.
Одна закрашенная грань будет у кубиков, которые лежат на поверхности каждой из граней куба, за исключением крайних. На каждой грани таких кубиков 9. У куба 6 граней, значит таких кубиков 5⋅6=54.
Полностью некрашенными остались кубики, целиком лежащие "внутри" исходного куба. Они образуют куб размером 3х3х3, и их всего 3⋅3⋅3=27. это правильный ответ
{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}
{Copyright (c) 1993-2017 by Florian Klaempfl and others}
{Target OS: Linux for x86-64}
program test;
Uses Math;
const N = 15;
var
A : array[1..N] of integer;
i, mx, k : integer;
begin
Randomize;
{Генерация и печать массива}
for i := 1 to N do begin
A[i] := Random(50);
write(A[i], ' ');
if A[i] mod 2 = 1 then mx := A[i]
end;
writeln;
for i := 1 to N do
if A[i] mod 2 = 1 then
if A[i] < mx then begin
mx := A[i];
k := i
end;
writeln('Число - ', mx, ', позиция - ', k);
end.
Результат выполнения программы: