Question

На вход программе подаётся последовательность натуральных чисел. Признак конца ввода – ноль. Напишите программу, которая находит сумму чисел, которые делятся на 7 и последняя цифра которых равна 3. Числа не превосходят 10000. Массивы не использовать.

Answer 1

Ответ:

var sum, num: Integer;

begin

   readln(num);

   

   while (num <> 0) do

   begin

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

       readln(num);

   end;

   

   Writeln(sum);

end.

Объяснение:

Answer 2

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

Вот пример программы на языке Python:

pythonCopy code
def main():
    sum_of_numbers = 0

    while True:
        num = int(input("Введите натуральное число (для завершения ввода введите 0): "))

        if num == 0:
            break

        # Проверяем, что число делится на 7 и последняя цифра равна 3
        if num % 7 == 0 and num % 10 == 3:
            sum_of_numbers += num

    print("Сумма чисел, которые делятся на 7 и последняя цифра равна 3:", sum_of_numbers)


if __name__ == "__main__":
    main()

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