Question

Найдите произведение цифр 4x-значного числа. Паскаль. Помогите, пожалуйста.

Answer 1

Program n_1;

var a:integer;

begin

   readln(a);

   a:=(a mod 10)*(a div 10 mod 10)*(a div 100 mod 10)*(a div 1000 mod 10);

   writeln(a);

end.

Answer 2

Конечно, я помогу!

Для нахождения произведения цифр 4-значного числа необходимо умножить все его цифры между собой. Пусть дано 4-значное число abcd, где a, b, c и d - это отдельные цифры.

Тогда произведение цифр этого числа будет равно: a * b * c * d

Для примера, предположим, что у нас есть 4-значное число 2586:

Произведение цифр = 2 * 5 * 8 * 6 = 480

Таким образом, произведение цифр числа 2586 равно 480.