Question

Составить программу которая определяет количество чисел в интервале от 100 до 1000 одновременно делящихся на 5 и 21

Answer 1

Пример, когда лучше сначала подумать, а потом писать программу.
Если число делится одновременно на 5 и 21, то оно делится и на их произведение, т.е. на 105.
Количество таких чисел на указанном интервале может быть найдено как
$\displaystyle k=\left \lfloor{ \frac{1000-105}{105}}\right\rfloor+1=9$
Здесь "скобки" означают операцию взятия целой части.
Т.е. ответ уже получен, но раз требуется программа, то можно её написать так:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln((1000-105) div 105 + 1)
end.

Answer 2

Конечно, вот пример программы на языке Python, которая определяет количество чисел в интервале от 100 до 1000, одновременно делящихся на 5 и 21:

# Инициализируем переменную для хранения количества чисел, соответствующих условию
count = 0

# Итерируемся по числам в интервале от 100 до 1000
for number in range(100, 1001):
    # Проверяем, делится ли число и на 5, и на 21
    if number % 5 == 0 and number % 21 == 0:
        # Если число соответствует условию, увеличиваем счетчик
        count += 1

# Выводим количество чисел, соответствующих условию
print("Количество чисел от 100 до 1000, делящихся на 5 и 21 одновременно: ", count)

Этот код начинает проверку с числа 100 и заканчивает на числе 1000 (включительно). Если число делится и на 5, и на 21, оно увеличивает счетчик. По окончании проверки выводится количество чисел, соответствующих заданным условиям в интервале от 100 до 1000.