Question

Информатика. Составить программу нахождения суммы целых положительных чисел, кратных 7 и не превосходящих заданное число n.​

Answer 1

Ответ:

Объяснение:

program SevenEleven;

var

n, i, Result : integer;

begin

Result:=0;

i:=0;

repeat

 writeln ('Input N: ');

 readln (n);

until n>0;

while i <= n do begin

  Result:=Result+i;

  i:=i+7;

end;

Writeln('Result = ', Result);

end.

Answer 2

Для нахождения суммы целых положительных чисел, кратных 7 и не превосходящих заданное число n, можно использовать программу на языке программирования. Ниже приведен пример программы на Python:

pythonCopy code
def sum_of_multiples_of_seven(n):
    total_sum = 0
    for i in range(1, n + 1):
        if i % 7 == 0:
            total_sum += i
    return total_sum

# Ввод заданного числа n
n = int(input("Введите число n: "))

# Вызов функции и вывод результата
result = sum_of_multiples_of_seven(n)
print("Сумма целых положительных чисел, кратных 7 и не превосходящих", n, "равна:", result)

Суть программы заключается в том, что она проходит по всем числам от 1 до заданного числа n, проверяет каждое число на кратность 7 с помощью оператора %, и если число кратно 7, добавляет его к общей сумме total_sum. В конце выводится полученный результат.

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

yamlCopy code
Введите число n: 30
Сумма целых положительных чисел, кратных 7 и не превосходящих 30 равна: 77