Задача Гонорар программирование, Паскаль, Питон, С++ ПОМОГИТЕ ПОЖАЛУЙСТА

Question

Инопланетяне с планеты Пандора уже много лет исследуют землян. Для этого на Землю внедрено множество агентов-пандорианцев. Так как среднестатический пандорианец примерно в 20 раз меньше среднестатичестического землянина, для перемещения по планете они используют специальных роботов, внешне неотличимых от жителей Земли. Внутри этих роботов с комфортом располагается команда агентов-исследователей. 
 
Сегодня команда, управляющая роботом «Геннадий», получает свой гонорар. Команда состоит из двух пандорианцев, Джейка и Джейка, которые в данный момент исследуют жителей России. Гонорар исследователи получают один на двоих наличными в обыкновенном российском банке. 
 
Джейк и Джейк должны получить сегодня K рублей. Смогут ли они разделить полученные монеты и купюры на двоих так, чтобы гонорар оказался поделен поровну, вне зависимости от того, какими именно монетами и купюрами им решат выдать K рублей в банке? 
 
Напишите программу, которая поможет Джейку и Джейку ответить на этот вопрос.

Входные данные 
 
На вход подается число K — сумма, которую получат Джейк и Джейк ( 1 ≤ K ≤ 100 000 ).

Выходные данные 
 
Выведите «YES», если вне зависимости от того, какими именно монетами и купюрами будет выдана нужная сумма, их можно будет поделить поровну, и «NO» — в противном случае. Действие происходит в России, поэтому для выдачи нужной суммы могут быть использованы купюры и монеты следующих номиналов: 1 , 2 , 5 , 10 , 50 , 100 , 500 , 1000 и 5000 рублей.

Решение по проверке на четность набирает 26 баллов из 100, уже проверял.
 
Примеры 
Входные данные 
7 
Выходные данные 
NO 
Входные данные 
24 
Выходные данные 
YES 
Входные данные 
10 
Выходные данные  
NO                                                                                                                                                                  
вот мой код: 
```var 
    s, i, f: integer; 
    a: array[1..9] of integer = (5000, 1000, 500, 100, 50, 10, 5, 2, 1); 
 
begin 
    readln(s); 
    if s mod 2 <> 0 then 
        writeln('NO') 
    else 
    begin 
        i := 1; 
        while s > 0 do 
        begin 
            while s >= a[i] do 
                s := s - a[i]; 
            inc(i); 
        end; 
        if s = 0 then 
            writeln('YES') 
        else 
            writeln('NO'); 
    end; 
end. ``` Но он проходит на 26 баллов. 
https://informatics.msk.ru/mod/statements/view.php?chapterid=112098#1 вот сайт где проверял если нужно. Помогите пожалуйста. Можно также на питоне или с++.

Андрей · Answer

У Pascal проблема с диапазоном целых чисел. Для 100000 может потребоваться использовать длинные целые числа, а они нестандартны и в разных диалектах Pascal разные.

Так что Python: k, t = int(input()), 0
for v in (5000, 1000, 500, 100, 50, 10, 5, 2, 1):
  t |= k // v % 2 # нечётность кол-ва купюр достоинства v
  k %= v # остаток суммы после выдачи максимальной части купюрами v
print(['YES', 'NO'][t]) t равно 0, если кол-во любых купюр чётно, и равно 1, если кол-во купюр какого-то достоинства нечётно.