Question

СРОЧНО § 3.3, в тетради написать программу подсчета суммы и произведения цифр произвольного четырехзначного числа, введенного с клавиатуры. 8 КЛ​

Answer 1

Программа на PascalABC.NET (Подсчёт не только 4 значного числа):

var n, sum, proizv: integer;

begin

sum := 0;

proizv := 1;

write('Введите число: ');

read(n);

while n <> 0 do begin

sum := sum + n mod 10;

proizv  := proizv * (n mod 10);

n := n div 10

end;

writeln('Сумма цифр числа: ', sum);

writeln('Произведение цифр числа: ', proizv);

end.

Answer 2

Конечно, вот программа на языке Python для подсчета суммы и произведения цифр введенного с клавиатуры четырехзначного числа:

pythonCopy code
# Ввод четырехзначного числа с клавиатуры
number = int(input("Введите четырехзначное число: "))

# Проверка на четырехзначность числа
if 1000 <= number <= 9999:
    # Вычисление суммы цифр
    digit_sum = 0
    for i in range(4):
        digit = number % 10
        digit_sum += digit
        number //= 10

    # Вычисление произведения цифр
    number = int(input("Введите четырехзначное число: "))
    digit_product = 1
    for i in range(4):
        digit = number % 10
        digit_product *= digit
        number //= 10

    # Вывод результата
    print("Сумма цифр:", digit_sum)
    print("Произведение цифр:", digit_product)
else:
    print("Введите четырехзначное число.")

Скопируйте этот код в вашу тетрадь и выполните его. Программа сначала запросит у вас ввести четырехзначное число, затем она вычислит сумму и произведение его цифр и выведет результат на экран.