Vba excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700, 1800 и 1900 -невисокосные года, 2000 - високосный дано натуральное число n. определить, являться ли високосным год с таким номером. только надоvba exel

Sub god()
    g = CInt(InputBox("Введите год"))
    If (g Mod 400 = 0) Or (g Mod 4 = 0 And g Mod 100 <> 0) Then
        MsgBox "Этот год вискосный"
    Else
        MsgBox "Этот год не вискосный"
    End If
End Sub

Вращение придает объекту стабильность в пространстве, этот принцип используют детский волчок, тарелочка-фрисби и пуля нарезного оружия. Любой из этих предметов можно назвать гироскопом, противодействующим отклонению от оси вращения.

Если вращающийся объект будет закреплен на оси с несколькими степенями свободы, то получится роторный гироскоп. Как только ротор будет раскручен, его ось приобретает устойчивость в пространстве и старается сохранить ориентацию, заданную в начальный момент.

Объяснение:

#include <iostream>

using namespace std;

задание 1

//int main()

//{

// int a[10], k;

// printf("enter numbers\n");

// for(int i = 0; i < 10; ++i)

// {

//  cin >> a[i];

//  if(a[i] % 2 == 0)

//  {

//   printf("%d\n", a[i]);

//   k++;

//  }

// }

// printf("k = %d", k);

//}

задание 2

//int main()

//{

// int a[10], k;

// printf("enter K\n");

// cin >> k;

// printf("enter numbers\n");

// for(int i = 0; i < 10; ++i)

// {

//  cin >> a[i];

//  if(a[i] < k)

//  {

//   printf("%d\n", a[i]);

//  }

// }

//}

Объяснение: