Pascal abc. составить программу , определяющую , является ли шестизначный номер билета счастливым (у которого сумма первых трех цифр равна сумме последних трех цифр) p.s. нужно использовать div и mod..

Var a: integer;
 begin
  readln(a);
  if(a div 100000 + ((a div 1000) mod 10) + (((a div 1000) div 10) mod 10) ) = (((a mod 1000) div 100) + ((a mod 1000) mod 10) + (((a mod 1000) div 10) mod 10)) then writeln('Да')
  else writeln('Нет');
end.

#include <iostream>

#include <set>

#include <sstream>

#include <algorithm>

using namespace std;

int main(){

   int n, num;

   string line;

   cout << "n = "; cin >> n;

   

   set <int> yes;

   set <int> no;

   stringstream ss;

   

   while(1) {

       ss.clear();

       getline(cin, line);

       if(line != "HELP" && line != "YES" && line != "NO") {

           ss << line;

           continue;

       }

       if(line == "HELP") break;

       if(line == "YES") {

           while(ss >> num) {

               yes.insert(num);

           }

           continue;

       }

       if(line == "NO") {

           while(ss >> num) {

               no.insert(num);

           }

           continue;

       }

   }

   set <int> result;

   set_difference(yes.begin(), yes.end(), no.begin(), no.end(), inserter(result, result.begin()));

   for(auto it = result.begin(); it != result.end(); it++) {

       cout << *it << " ";

   }

   return 0;

}

Дайте "лучший ответ" если решение правильное , у меня уже 1000 из но не могу набрать 5 лучших ответов

(см. объяснение)

Объяснение:

Решение на Java:

import java.math.BigInteger;

public class Main

{

public static void main(String[] args) {

 System.out.println(BigInteger.valueOf(2).multiply(BigInteger.valueOf(27).pow(7)).add(BigInteger.valueOf(3).pow(10)).subtract(BigInteger.valueOf(9)).toString(3).chars().filter(x->x=='0').count());

}

}

Решение на Python 3:

a = 2*27**7+3**10-9

s = ''

while a>0:

   s = str(a % 3) + s

   a //= 3

print(s.count('0'))

Результат работы программ в обоих случаях одинаковый и равен 13.

Задание выполнено!