Question

На вход программы поступает натуральное число . Требуется определить сумму цифр в десятичной записи этого числа , которые кратны 3(считается , что 0 кратно любому числу). Если в числе нет цифр , кратных 3, требуется на экран вывести "NO".

Answer 1

//PascalABC.NET v3.3 1633

begin

 var num:=ReadString('Введите натуральное число: ');

 

 var sum:=0;

 for var i:=1 to num.Length do

   if StrToInt(num[i]) mod 3 = 0 then

     sum += StrToInt(num[i]);

 if sum = 0 then

   writeln('NO')

 else

   writeln('Сумма цифр,кратных 3 равна '+sum);

end.

Answer 2

Привет! Я могу помочь с написанием программы на языке Python для решения этой задачи. Вот код, который будет определять сумму цифр числа, кратных 3:

pythonCopy code
def sum_of_digits(n):
    digits = [int(digit) for digit in str(n)]  # Преобразуем число в список цифр
    sum_multiple_of_3 = sum(digit for digit in digits if digit % 3 == 0)  # Суммируем цифры, кратные 3

    if sum_multiple_of_3 == 0:
        return "NO"
    else:
        return sum_multiple_of_3

# Пример использования:
number = int(input("Введите число: "))
result = sum_of_digits(number)
print(result)

В этом коде мы сначала преобразуем число в список цифр, затем используем генератор списка, чтобы отобрать только те цифры, которые кратны 3. Затем суммируем эти цифры и возвращаем результат. Если сумма равна 0, выводим "NO".

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