Сделайте с полным решением 333 в десятой степени → х 8

// pascalabc.net 3.3, сборка 1542 от 05.10.2017 // внимание! если программа не работает, обновите версию! uses numlibabc; begin     var (num,denom): =readinteger2('числитель и знаменатель 1-й дроби: ');     var f1: =frc(num,denom);     (num,denom): =readinteger2('числитель и знаменатель 2-й дроби: ');     var f2: =frc(num,denom);     f1.print; write('* '); f2.print; write('= '); (f1*f2).print end. примеры числитель и знаменатель 1-й дроби: 4 9 числитель и знаменатель 2-й дроби: 3 8 4/9 * 3/8 = 1/6 числитель и знаменатель 1-й дроби: 32432424 10213133 числитель и знаменатель 2-й дроби: 23123 12313123 32432424/10213133 * 23123/12313123 = 749934940152/125755562844359 числитель и знаменатель 1-й дроби: 15 2 числитель и знаменатель 2-й дроби: 8 15 15/2 * 8/15 = 4

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