Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста
Вычислить произведение цифр в трехзначном числе m.
P.S. в программе Pascal

Ответ оставил Гость

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