Question

Паскаль! Найти произведение цифр четырёхзначного числа.

Answer 1

var

 n, p: integer;

begin

 Write('Введите натуральное четырехзначное число -> ');

 Readln(n);

 p := (n div 1000) * (n mod 10); { произведение первой и последней цифр }

 n := (n mod 1000) div 10; { вторая и третья цифры }

 p := p * (n div 10) * (n mod 10);

 Writeln('Произведение цифр числа равно ', p)

end.

Тестовое решение:

Введите натуральное четырехзначное число -> 2437

Произведение цифр числа равно 168

Answer 2

Хорошо, чтобы найти произведение цифр четырёхзначного числа, нужно перемножить все его цифры. Давайте предположим, что наше четырёхзначное число представлено в виде "abcd", где каждая буква соответствует отдельной цифре.

Произведение цифр четырёхзначного числа будет равно: произведение всех цифр "a", "b", "c" и "d".

Например, для числа 1234: a = 1 b = 2 c = 3 d = 4

Произведение цифр: 1 * 2 * 3 * 4 = 24.

Таким образом, произведение цифр четырёхзначного числа 1234 равно 24.