Question

 Составить программу, которая запрашивает четырехзначное число, и находит произведение цифр этого числа 

Answer 1

Program i7;
var
  i,n,k: integer;
begin
  writeln('vvedi 4etireh znachoe chislo');
  readln(n);
  k:=1;
  while n>0 do
      begin
         k:=k*n mod 10;
         n:=n div 10;
      end;
  writeln(k);
end.

Answer 2

Какой язык программирования Вам нужен для решения этой задачи? Я могу предложить решение на языке Python:

pythonCopy code
num = input("Введите четырехзначное число: ")
product = 1
for digit in num:
    product *= int(digit)
print("Произведение цифр числа", num, "равно", product)

В этой программе мы сначала запрашиваем у пользователя четырехзначное число с помощью функции input. Затем мы инициализируем переменную product со значением 1 и используем цикл for, чтобы перебирать каждую цифру числа. Для каждой цифры мы преобразуем ее в целое число с помощью функции int, а затем умножаем на текущее значение переменной product. По завершении цикла мы выводим результат с помощью функции print.