Var n,p:integer; begin Write('Введите натуральное трехзначное число: '); Read(n); p:=(n mod 10); { младшая цифра } n:=n div 10; { отбросили младшую, число стало двухзначным } p:=p*(n mod 10)*(n div 10); Writeln('Произведение цифр числа равно ',p) end.
Тестовое решение: Введите натуральное трехзначное число: 946 Произведение цифр числа равно 216
n,p:integer;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
p:=(n mod 10); { младшая цифра }
n:=n div 10; { отбросили младшую, число стало двухзначным }
p:=p*(n mod 10)*(n div 10);
Writeln('Произведение цифр числа равно ',p)
end.
Тестовое решение:
Введите натуральное трехзначное число: 946
Произведение цифр числа равно 216