Поместите этот макрос в проекте на любой лист и вызовите его
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
#include <iostream> using namespace std; int main() { setlocale(0,""); int p; int n; int kol=0; cout<<"введите число p которое проверяется"; cin>>p; cout<<"введите число n первых нечётных чисел "; cin>>n; for (int i=1;i<=n*2;i++) { for (int j=1;j<=n*2;j++) { if ( ((i%2)==1) && ((j%2)==1) ) n2++; if ( ((i%2)==1) && ((j%2)==1) && ((i*j)==p) ) kol++; } } cout<<"количество "<<n<<" первых нечётных чисел кратных "<<p<<" = "<<kol; return 0; }
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