Question

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

Answer 1

Var
pr, num: Integer;
begin
WriteLn('Введите число: ');
ReadLn(num);
pr := 1;  
while num > 0 do begin
pr := pr * (num mod 10);
num := num div 10;
end;
WriteLn('Произведение чисел = ', pr);
ReadLn
end.

Answer 2

Pascal Program to Find the Product of Digits of a Four-Digit Number

Here's a Pascal program to find the product of the digits of a four-digit number:

program ProductOfDigits;

var
  number, digit, product: integer;

begin
  write('Enter a four-digit number: ');
  readln(number);

product := 1;

digit := number mod 10;
  product := product * digit;
  number := number div 10;

digit := number mod 10;
  product := product * digit;
  number := number div 10;

digit := number mod 10;
  product := product * digit;
  number := number div 10;

digit := number mod 10;
  product := product * digit;

writeln('The product of the digits is: ', product);
end.

This program takes a four-digit number as input and calculates the product of its digits. It uses the modulo operator (%) to extract the last digit, multiplies it with the product, and then updates the number by removing the last digit using the division operator (/).

Explanation of the Program

1. The program first prompts the user to enter a four-digit number. 2. It then initializes variables for the number, digit, and product. 3. Using a series of modulo and division operations, the program extracts each digit from the number and calculates the product of the digits. 4. Finally, it displays the product of the digits.

This program efficiently calculates the product of the digits of a four-digit number in Pascal.