Question

Pascal, помогите составить На вход даётся число, определить произведение цифр числа кратных 3, если таких нет вывести на экран "нет".

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var n:=abs(ReadInteger);
var a:=n.ToString.Select(x->x.ToDigit).Where(t->t mod 3=0);
if a.Count=0 then write('нет') else write(a.Aggregate(Real(1),(x,y)->x*y));
end.

Answer 2

Конечно! Вот пример кода на языке Python, который выполняет указанную задачу:

pythonCopy code
def multiply_digits_multiple_of_three(number):
    product = 1
    has_multiple_of_three = False

    for digit in str(number):
        digit = int(digit)
        if digit % 3 == 0 and digit != 0:
            product *= digit
            has_multiple_of_three = True

    if has_multiple_of_three:
        return product
    else:
        return "нет"

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

При запуске программы пользователю будет предложено ввести число. Затем программа определит произведение цифр числа, которые кратны 3. Если таких цифр нет, будет выведено "нет".