Как была так и выглядит :D
Минимальное количество бити 8 бит так как количество не дано ответ 96
Поместите этот макрос в проекте на любой лист и вызовите его
Sub aaa()
Pi = 4 * Atn(1)
r = CDbl(InputBox("Радиус круга"))
a = CDbl(InputBox("Сторона квадрата"))
s1 = Pi * r ^ 2
s2 = a ^ 2
MsgBox IIf(s1 > s2, "Площадь круга больше", IIf(s1 < s2, "Площадь квадрата больше", "Площади равны"))
End Sub
Алгоритм КВАДРАТ <span> {</span>
покажись;
опусти_перо;
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
<span> }
Алгоритм Звездочки </span> повторить 18 {
вперед 200
налево 100
}
Алгоритм Звезды { вперед ( 60 ); налево ( 10 ); опусти_перо; цикл (10); налево ( 144 ); вперед ( 120 ); конец_цикла; поднять_перо; направо(18); назад(60); }