Question

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

Answer 1

var a,b,N:integer;

begin

readln(a);

while a>0 do

begin

   b:=a mod 10;

   if b div 3 = 0 then

   N:=N+B;

END

IF N:=0 THEN

   WRITELN('NO');

ELSE

WRITELN(N);

END.

Answer 2

var a,s:integer;

begin

readln(a);

while a>0 do

begin

if a mod 10 mod 3 = 0 then s:=s+a mod 10;

a:=a div 10

end;

if s=0 then writeln('NO')

else writeln(s);

end.

Answer 3

Для решения этой задачи через цикл while, мы будем извлекать цифры числа одну за другой, проверять их на кратность 3, и если условие выполняется, то добавлять их в сумму. Если после прохода всех цифр сумма оказывается равной нулю, то выводим "NO". Вот код программы на Python:

pythonCopy code
def sum_of_digits_divisible_by_3(number):
    sum_divisible_by_3 = 0

    while number > 0:
        digit = number % 10
        if digit % 3 == 0:
            sum_divisible_by_3 += digit
        number //= 10

    if sum_divisible_by_3 == 0:
        print("NO")
    else:
        print(sum_divisible_by_3)

# Примеры вызова функции:
sum_of_digits_divisible_by_3(12345)  # Вывод: 6 (3 + 0 + 0)
sum_of_digits_divisible_by_3(987654321)  # Вывод: 9 (3 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 0)
sum_of_digits_divisible_by_3(111222333)  # Вывод: 18 (3 + 3 + 3 + 0 + 0 + 0 + 0 + 0 + 0)
sum_of_digits_divisible_by_3(4)  # Вывод: NO

Вы можете вызывать функцию sum_of_digits_divisible_by_3() с разными аргументами для проверки других чисел.