Question

ДАНО ТРЕХЗНАЧНОЕ ЧИСЛО.НАЙДИТЕ ПРОИЗВЕДЕНИЕ ИХ ЦИФР. (Паскаль) Числа любые.

Answer 1

var a: integer;

begin

   readln(a);

   digit1:= a div 10;

   digit2:= a mod 10 div 10;

   digit3:= a mod 10;

   writeln(digit1 * digit2 * digit3)

end.