Question

Составить программу, которая вычисляет количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000.

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Range(1,1000).Where(t->t mod 60=0).Count.Println
end.

Результат
16

Answer 2

Var i, c : integer;
begin
for i := 1 to 1000 do
if (i mod (3*4*5) = 0)
then c := c + 1;
writeln(c);
end.

Answer 3

Для вычисления количества чисел, которые одновременно кратны 3, 4 и 5 в диапазоне от 1 до 1000, нужно написать программу, которая проверяет каждое число в диапазоне и подсчитывает числа, которые удовлетворяют этому условию. Вот пример программы на Python, которая выполняет это:

pythonCopy code
def count_multiples(start, end):
    count = 0
    for num in range(start, end + 1):
        if num % 3 == 0 and num % 4 == 0 and num % 5 == 0:
            count += 1
    return count

start_range = 1
end_range = 1000

result = count_multiples(start_range, end_range)
print("Количество чисел, кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000:", result)

Программа сначала определяет функцию count_multiples, которая принимает начало и конец диапазона, затем использует цикл for для перебора чисел в этом диапазоне и увеличивает счетчик count, если число кратно 3, 4 и 5 одновременно. В конце программа выводит количество таких чисел, найденных в диапазоне.