Question

Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.​

Answer 1

var

 p,n:integer;

begin

 write('Введите число: ');

 readln(n);

 p:=1;

 while n>0 do

   begin

     p:=p*(n mod 10);

     n:=n div 10;

   end;

 writeln('Произведение цифр: ',p);

end.

Answer 2

Конечно, вот пример кода на Pascal, который находит произведение цифр заданного четырехзначного числа:

pascalCopy code
program MultiplyDigits;

var
  number, product, digit: integer;

begin
  // Запрос ввода четырехзначного числа
  write('Введите четырехзначное число: ');
  readln(number);

  // Проверка на то, что число является четырехзначным
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Введенное число не является четырехзначным.');
    exit;
  end;

  // Инициализация произведения
  product := 1;

  // Вычленение и умножение цифр числа
  while number > 0 do
  begin
    digit := number mod 10;  // Получаем последнюю цифру числа
    product := product * digit;  // Умножаем её на произведение
    number := number div 10;  // Убираем последнюю цифру из числа
  end;

  // Вывод результата
  writeln('Произведение цифр числа: ', product);
end.

Вы можете скопировать этот код в среду программирования Pascal и выполнить его, чтобы найти произведение цифр заданного четырехзначного числа.