Program z;
Var N,k:integer;
Begin
k:=0;
If N<5 then k:=k+1;writeln(k);
End.
Всего маленьких кубиков 5⋅5⋅5=125.
По три окрашенных грани может быть только у угловых кубиков; их всего 8. По две окрашенных грани может быть только у кубиков, которые расположены на ребрах куба, но не в вершинах. На каждом ребре таких кубиков три. Ребер у куба 12, значит таких кубиков 36.
Одна закрашенная грань будет у кубиков, которые лежат на поверхности каждой из граней куба, за исключением крайних. На каждой грани таких кубиков 9. У куба 6 граней, значит таких кубиков 5⋅6=54.
<span>Полностью некрашенными остались кубики, целиком лежащие "внутри" исходного куба. Они образуют куб размером 3х3х3, и их всего 3⋅3⋅3=27. это правильный ответ</span>
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
var (a,b):=(Random(0,10),Random(0,10));
if a=b
then Println(a,'=',b)
else Println(Random(0,10),Random(0,10));
end.
В решении нет ошибок.
Чтобы доказать нужно протрассировать этот алгоритм с разными входными параметрами.
А они могут быть двух типов:
1) Без искомого числа [1,3,9,100,101,200,201]
2) C искомым числом [1,3,9,100,101,200,201,333,666]
Ты просто должен про думать их состав, что в них входит и всё