Sub aaa()
Dim r As Range
Set r = Range("A1:A10")
i = 1
For Each k In r
Cells(i, 2) = Application.WorksheetFunction.CountIf(r, k)
i = i + 1
Next k
End Sub
Для случая размещения чисел массива в ячейках с А1 по А10
I=3, p=1*3=3
i=4, p=3*4=12
i=5, p=12*5=60
На экран будет выведено значение 60
<span>Этапы работы: -1, 1, 3, 5, 7, 9 итого 6 раз</span>
#include<iostream>
#include<cmath>
using namespace std;
int main()
{
int a, j = 0;
cin >> a;
int k = a;
while(k>0) {
j += k % 10;
k /= 10;
}
if (pow(j,3) == pow(a, 2))
cout << "Куб суммы цифр этого числа равен А*А." << endl;
else
cout << "Куб суммы цифр этого числа не равен А*А." << endl;
}