Question

Напишите программу пожалуйста В последовательности натуральных чисел определить сумму чисел кратных 5

Answer 1

Будем считать последовательность натуральных чисел такую:
1,2,3,4 .. n-1,n
Тогда программа может быть такой:

var
  i, s, n: integer;

begin
  write('Введите число натуральных чисел: ');
  readln(n);
  for i := 1 to n do
    if i mod 5 = 0 then s := s + i;
  writeln('Сумма кратных 5 = ', s);
end.

Answer 2

Конечно, вот простой пример программы на языке Python:

pythonCopy code
# Запрашиваем у пользователя длину последовательности
n = int(input("Введите длину последовательности: "))

# Инициализируем переменную для хранения суммы чисел, кратных 5
sum = 0

# Цикл от 1 до n включительно
for i in range(1, n+1):
    # Проверяем, кратно ли число 5
    if i % 5 == 0:
        # Если кратно, добавляем его к сумме
        sum += i

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

Программа запрашивает у пользователя длину последовательности и затем проходит по всем числам от 1 до n, проверяя, кратно ли число 5. Если число кратно 5, оно добавляется к переменной sum, которая и хранит сумму всех чисел, кратных 5. В конце программы выводится результат.