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

Question

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

Answer 1

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

Comments

Спасибо большое вы мой

---

Спаситель:)

---

Пожалуйста)