Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных...

program SumOfMultiplesOf7EndingWith0;

var num, sum: integer;

begin sum := 0;

repeat

readln(num);
if (num mod 7 = 0) and (num mod 10 = 0) then
  sum := sum + num;

until num = 0;

writeln(sum); end.

Приведу пример программы на языке Pascal, которая будет вычислять сумму всех чисел кратных 7 и оканчивающихся на 0:

program SumOfMultiplesOf7EndingWith0;

var
  num, sum: integer;

begin
  sum := 0;
  
  repeat
    readln(num);
    if (num mod 7 = 0) and (num mod 10 = 0) then
      sum := sum + num;
  until num = 0;
  
  writeln('Сумма всех чисел, кратных 7 и оканчивающихся на 0: ', sum);
end.

Эта программа считывает последовательность чисел, вычисляет их сумму, прибавляя только те числа, которые кратны 7 и оканчиваются на 0. После ввода числа 0 программа выводит итоговую сумму на экран.

Для решения данной задачи необходимо создать программу на языке программирования Pascal, которая будет считывать последовательность натуральных чисел и вычислять сумму всех чисел, которые одновременно кратны 7 и оканчиваются на 0. Последовательность заканчивается числом 0, которое не входит в анализируемую последовательность.

Ниже представлен подробный код программы:

program SumOfNumbers;

var
  number, sum: longint;

begin
  sum := 0;  // Инициализация суммы

  // Бесконечный цикл для чтения чисел
  while True do
  begin
    readln(number);  // Чтение числа

    // Проверка признака конца последовательности
    if number = 0 then
      break;

    // Проверка условий: кратность 7 и окончание на 0
    if (number mod 7 = 0) and (number mod 10 = 0) then
      sum := sum + number;  // Добавление числа к сумме
  end;

  writeln(sum);  // Вывод суммы
end.

Разберем программу по шагам:

1. Объявление переменных:

   • number — переменная для хранения текущего числа, вводимого пользователем.
   • sum — переменная для накопления суммы чисел, удовлетворяющих условиям задачи.

2. Инициализация переменной sum:

   • sum := 0; — устанавливаем начальное значение суммы равным нулю.

3. Бесконечный цикл while True do:

   • Используется для непрерывного чтения чисел, пока не встретится признак окончания ввода — число 0.

4. Чтение числа readln(number):

   • Считываем очередное число из входных данных.

5. Проверка на окончание последовательности:

   • Если введено число 0, то выполняется break, который завершает цикл.

6. Проверка условий кратности и окончания на 0:

   • (number mod 7 = 0) — проверка на кратность 7.
   • (number mod 10 = 0) — проверка на окончание на 0.

7. Суммирование чисел, удовлетворяющих условиям:

   • Если оба условия выполняются, то текущее число добавляется к переменной sum.

8. Вывод результата:

   • После завершения цикла выводится итоговая сумма writeln(sum).

Таким образом, программа корректно выполняет поставленную задачу, обрабатывая последовательность чисел, и выводит сумму чисел, которые кратны 7 и оканчиваются на 0.