Дано четырехзначное число. если сумма его цифр является четным значением определить, равна ли сумма первых двух цифр сумме последних двух цифр. например число 1441 сумма цифр 10 – четное значение. 1+4 = 4+1. ответ да 1320 сумма цифр 6 – четное значение. 1+3 не равно 2 + 0. ответ нет на языке программирования (vba) (visual basic)

Сделал на С++, может кто-нибудь переведет или вы поймёте логику программы. В целом вводим число и с простого деления и остатка от деления, выражаем отдельные числа. Находим сумму и проверяем условия.

#include <iostream>
using namespace std;
int main(void)
{   setlocale(LC_ALL, "Russian");  
  int num, a1, a2, a3, a4, Sum;  
  cout << "Введите четырехзначное число: " ;  
  cin >> num;  
  a1 = num / 1000; //делим введенное число на цело,
  a2 = (num / 100)%10; // а потом используем остаток от деления
  a3= (num / 10) % 10;
  a4 = num % 10;
  Sum = a1 + a2 + a3 + a4;  
   if (Sum%2==0)  
    {      
        cout << "Сумма четная" <<endl ;     
        if (a1 + a2 == a3 + a4)        
               cout << "ДА, условие выполняется" << endl;      
        else        
               cout << "НЕТ, условие не выполняется" << endl;  
    }
  else  
       cout << "Сумма нечётная." <<endl;  
  system("pause"); 
  return 0;
}