Question

С клавиатуры вводится 4 4-значных числа. найти произведение чётных цифр наибольшего из числа (напишите программу в pascal)

Answer 1

Var a, i, s, max: integer;

Begin

s := 1;

for i := 1 to 4 do begin

read(a);

if (a>max) then max := a;

end;

while (max > 0) do begin

if (max mod 10 mod 2 = 0) then s := s * max mod 10;

max := max div 10;

end;

writeln(s);

End.

Answer 2

Конечно, вот программа на Pascal, которая выполняет указанную задачу:

pascalCopy code
program MaxEvenDigitsProduct;

var
  num1, num2, num3, num4: Integer;
  maxNum, currentNum, product, digit: Integer;

function CalculateEvenDigitsProduct(number: Integer): Integer;
var
  tempDigit, evenProduct: Integer;
begin
  evenProduct := 1;
  while number > 0 do
  begin
    tempDigit := number mod 10;
    if tempDigit mod 2 = 0 then
      evenProduct := evenProduct * tempDigit;
    number := number div 10;
  end;
  CalculateEvenDigitsProduct := evenProduct;
end;

begin
  WriteLn('Enter four 4-digit numbers:');
  ReadLn(num1, num2, num3, num4);

  if (num1 >= 1000) and (num1 <= 9999) and
     (num2 >= 1000) and (num2 <= 9999) and
     (num3 >= 1000) and (num3 <= 9999) and
     (num4 >= 1000) and (num4 <= 9999) then
  begin
    maxNum := num1;
    if num2 > maxNum then maxNum := num2;
    if num3 > maxNum then maxNum := num3;
    if num4 > maxNum then maxNum := num4;

    product := 1;

    while maxNum > 0 do
    begin
      digit := maxNum mod 10;
      if digit mod 2 = 0 then
        product := product * digit;
      maxNum := maxNum div 10;
    end;

    WriteLn('Product of even digits in the largest number:', product);
  end
  else
  begin
    WriteLn('Please enter valid 4-digit numbers.');
  end;
end.

Программа запрашивает четыре 4-значных числа, затем находит наибольшее из них и вычисляет произведение четных цифр этого числа.