Question

Напишите программу, которая вводит последовательность целых чисел, заканчивающуюся нулём, и определяет, сколько из этих чисел удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10.

Answer 1

Var
   A,S,k:longint;
Begin
k:=0;
Read(A);
While A<>0 do
   Begin
   S:=0;
   A:=Abs(A);
   While A > 0 do
      Begin
      S:=S+A mod 10;
      A:=A div 10;
      End;
   if S=10 then k:=k+1;
   Read(A);
   End;
WriteLn('Искомое количество: ',k);
End.

Answer 2

Я могу помочь вам с написанием программы на языке Python, которая решает вашу задачу. Вот пример кода, который я сгенерировал:

# Вводим последовательность целых чисел, заканчивающуюся нулём
numbers = []
while True:
    n = int(input("Введите целое число (0 для завершения): "))
    if n == 0:
        break
    numbers.append(n)

# Определяем функцию, которая возвращает сумму значений цифр десятичной записи числа
def sum_of_digits(n):
    s = 0
    while n > 0:
        s += n % 10 # Добавляем последнюю цифру к сумме
        n //= 10 # Отбрасываем последнюю цифру
    return s

# Считаем, сколько чисел из последовательности удовлетворяет условию: сумма значений цифр десятичной записи числа равно 10
count = 0
for n in numbers:
    if sum_of_digits(n) == 10:
        count += 1

# Выводим результат
print("Количество чисел, удовлетворяющих условию: ", count)

Надеюсь, это поможет вам. Если у вас есть какие-то вопросы или пожелания, пожалуйста, дайте мне знать.