Question

Уникальным назовём число, если у него первые две цифры нечётные. Для интервала [57888;74555]. Найдите количество таких чисел, которые не делятся на 7, 9, 13, на разность максимального и минимального. В ответе укажите числа: сначала количество чисел, потом разность.

Answer 1

program uniq;

var

i, min_value, max_value, counter: Integer;

begin

counter := 0;

min_value := 0;

max_value := 0;

for i := 57888 to 74555 do begin

if (((i div 10000) mod 2 <> 0) and (((i div 1000) mod 10) mod 2 <> 0)) then begin

if ((i mod 7 <> 0) and (i mod 9 <> 0) and (i mod 13 <> 0) and (i mod 16667 <> 0)) then begin

counter += 1;

max_value := i;

if min_value = 0 then

min_value := i

end;

end;

end;

Writeln(counter);

WriteLn(min_value, ' ', max_value);

end.

Answer 2

Давайте разберемся с задачей шаг за шагом.

1. Первые две цифры нечётные: - В интервале [57888; 74555] первая и вторая цифры могут быть 5, 7 или 9.

2. Не делятся на 7, 9, 13: - Избавимся от чисел, которые делятся на 7, 9, 13. Для этого проверим, делятся ли они на каждое из этих чисел.

3. Разность максимального и минимального: - Найдем максимальное и минимальное число в полученном нами интервале, и затем найдем их разность.

Теперь давайте выполним эти шаги:

1. Первые две цифры нечётные: - Первая цифра может быть 5, 7, или 9. - Вторая цифра может быть 1, 3, 5, 7, или 9.

2. Не делятся на 7, 9, 13: - Избавимся от чисел, которые делятся на 7, 9, 13. Напишем код, чтобы проверить каждое число в интервале:

count = 0
min_val = float('inf')
max_val = float('-inf')

for num in range(57888, 74556):
    if num % 7 != 0 and num % 9 != 0 and num % 13 != 0:
        count += 1
        min_val = min(min_val, num)
        max_val = max(max_val, num)

difference = max_val - min_val

print("Количество чисел:", count)
print("Разность максимального и минимального:", difference)

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