Question

Дано N. Найти произведение четных чисел этого числа. Решить с помощью паскаля. Ребят, у меня вышла такая программа: Program Pr1; var n,p,m:integer; begin write('n='); readln(n); m:=n; p:=1; while m>0 do begin if (m mod 10) mod 2=0 then p:=p*m mod 10; m:=m div 10; end; writeln('В числе ',n,' произведение четных цифр = ',p); end. И в ответе, если произведение превышает число 9, выводится его последняя цифра. Например: n=881 В числе 881 произведение четных цифр = 4 А на самом деле выходит 8*8=64. Надеюсь, кто-нибудь сможет помочь. И, да, мне нужна помощь исключительно в улучшении программы, а не написания новой.

Answer 1

Ошибка в строке
p:=p*m mod 10;
При подсчете произведения
Приоритетность операций

должно быть 
p:=p* (m mod 10);
скобки

Answer 2

Solving for the Product of Even Digits in a Number Using Pascal

To improve the given program for finding the product of even digits in a number and ensuring that the correct result is displayed, we can make the following modifications:

Program Pr1;
var
  n, p, m: integer;
begin
  write('n=');
  readln(n);
  m := n;
  p := 1;
  while m > 0 do
  begin
    if (m mod 10) mod 2 = 0 then
      p := p * (m mod 10);  // Update the calculation to multiply the even digit directly
    m := m div 10;
  end;
  if p > 9 then
    p := p mod 10;  // If the product exceeds 9, display its last digit
  writeln('В числе ', n, ' произведение четных цифр = ', p);
end.

With these modifications, the program will correctly calculate the product of even digits in the given number and display the last digit if the product exceeds 9.

For example, for n=881, the program will now correctly output: "В числе 881 произведение четных цифр = 4"

This modification ensures that the program accurately calculates the product of even digits in the given number and displays the correct result as per the provided requirements.