Question

Назовем натуральное число красивым, если в его десятичной записи все пары подряд идущих цифр имеют разную четность. Например, числа 123450, 2107 являются красивыми, а 570, 2108, 564 не являются. Сколько красивых чисел между числами a и b включительно?  Выведите единственное число k— количество красивых натуральных чисел x таких, что  a ≤ x ≤ b

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 var count := 0;

 var a := Range(ReadInteger('a='), ReadInteger('b='))

                              .Select(t -> t.ToString.JoinIntoString(' ').ToIntegers)

                                                             .Where(t -> t.Count.IsEven);

 foreach var x in a do

 begin

   var (b, i) := (true, 0);

   while (b) and (i < x.Length - 1) do

   begin

     if (x[i].IsOdd and x[i + 1].IsOdd) or (x[i].IsEven and x[i + 1].IsEven)  

       then b := false;

     inc(i, 2);

   end;

   if (i = x.Length) and (b) then inc(count);  

 end;

 count.Println;

end.

Answer 2

Для решения этой задачи, мы можем написать функцию, которая проверяет, является ли число красивым, и затем перебирать все числа от a до b, подсчитывая количество красивых чисел.

Вот Python-код для решения этой задачи:

pythonCopy code
def is_beautiful_number(n):
    # Функция для проверки, является ли число красивым
    digits = str(n)
    for i in range(len(digits) - 1):
        if int(digits[i]) % 2 == int(digits[i + 1]) % 2:
            return False
    return True

def count_beautiful_numbers(a, b):
    # Функция для подсчета красивых чисел между a и b включительно
    count = 0
    for num in range(a, b + 1):
        if is_beautiful_number(num):
            count += 1
    return count

# Пример использования функции:
a = 100
b = 1000
result = count_beautiful_numbers(a, b)
print(result)

Вы можете заменить значения переменных a и b на нужные вам числа, чтобы найти количество красивых чисел между этими значениями включительно.