А где работа то? нет ничего
Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA
Sub Z1()
MsgBox ("Моя первая программа на VBScript!!!")
<span>End Sub
В каком приложении работаешь?</span>
#include <iostream>
#include <cmath>
using namespace std;
int func(int *mas, int m)
{
int res=1;
for(int j=0; j<m; j++) res *= (abs(mas[j])<=10);
return not res;
}
int main()
{
const int n=6,m=4;
int a[n][m];
srand(time(NULL));
cout << "Случайная матрица порядка "<< n << "x" << m << ":\n";
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++){
a[i][j]=rand() % 30-15;
cout << a[i][j] << " ";
}
cout << "\n";
}
for(int i=0; i<n; i++)
cout << i << ": " << func(a[i],m) << endl;
return 0;
}
Пример:
Случайная матрица порядка 6x4:
11 -11 9 8
-5 -11 -12 14
4 -6 -1 7
-2 3 -1 13
-1 4 -15 3
4 -7 -3 -1
0: 1
1: 1
2: 0
3: 1
4: 1
5: 0
1-Рустам
2-Галина
3-Эдуард
4-Яков
5-Карина