Программирование!!!Из квадратного листа картона вырезается коробка в форме куба с известной

Сделайте в виде развертки со сгибами

Давайте 6

а как это в экселе оформить?

Sub othod()
    d = Cells(1, 3)
    a = Cells(2, 3)
    If d lt; 4 * a Then
        MsgBox "Сторона листа D обязана быть не наименее 4a", vbCritical + vbOKOnly, "Критическая ошибка"
        Return
    Else
        so = d ^ 2 - 6 * a ^ 2 'Суммарная площадь отходов
        po = so / d ^ 2 'Толика отходов
        Cells(3, 3) = po
    End If
End Sub

Остальное во вложении. Скачайте файл .txt и поменяйте его расширение на xlsm