Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процент неиспользованного материала, если размеры листа заданы.

Sub othod()       d = cells(1, 3)       a = cells(2, 3)       if d < 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

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

 

ответ 2

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.