Question

Составьте программу нахождения суммы всех натуральных чисел из диапазона от А до Б, включая А и В, кратных 5 и 13 (А и В вводятся с клавиатуры).

Answer 1

Ответ:

PascalABC.NET

• begin
• var (a,b) := ReadInteger2('Введите A и B:');
• (A..B).Sum(x->(x.is mod 5=0) or (x mod 13=0)?x:0).Print
• end.

Пример работы:

5 + 10 + 13 = 28

Answer 2

Конечно, вот программа на языке Python, которая находит сумму всех натуральных чисел из заданного диапазона, кратных как 5, так и 13:

pythonCopy code
# Ввод значений А и В с клавиатуры
A = int(input("Введите начальное значение (A): "))
B = int(input("Введите конечное значение (B): "))

# Инициализация переменной для хранения суммы
sum_multiples = 0

# Перебор всех чисел в диапазоне от A до B включительно
for num in range(A, B + 1):
    # Проверка на кратность 5 и 13
    if num % 5 == 0 and num % 13 == 0:
        sum_multiples += num

# Вывод результата
print("Сумма чисел, кратных 5 и 13, в диапазоне от", A, "до", B, "включительно:", sum_multiples)

Программа запрашивает начальное (A) и конечное (B) значения диапазона с клавиатуры, затем использует цикл для перебора всех чисел в этом диапазоне. Если число кратно как 5, так и 13, то оно добавляется к сумме. В конце программа выводит результат - сумму всех таких чисел в заданном диапазоне.