Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. Если...

Question

Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. Если таких цифр нет, то вернуть -1.

Требования к подпрограмме:

Процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. Второй - результат работы подпрограммы.


(Паскаль абц (Pascal abc))

Answer 1

Procedure search(n: integer; var mineven: integer);
begin
  mineven := 10;
  while n > 0 do
  begin
    var last := n mod 10;
    if (last mod 2 = 0) and (last < mineven) then
      mineven := last;
    n := n div 10;
  end;
  if mineven = 10 then
    mineven := -1;
end;

Answer 2

Program prog;
function Search(n: integer): integer;
var
  input: array[1..4] of integer;
  even: array[1..4] of integer;
  atLestOne: boolean;
begin
  input[1] := n div 1000;
  input[2] := n mod 1000 div 100;
  input[3] := n mod 100 div 10;
  input[4] := n mod 10;
  if (input[1] mod 2 = 0)
    begin
      even[1] := input[1];
      atLestOne := True;
    end;
  if (input[2] mod 2 = 0)
    begin
      even[2] := input[2];
      atLestOne := True;
    end;
  if (input[3] mod 2 = 0)
    begin
      even[3] := input[3];
      atLestOne := True;
    end;   
  if (input[4] mod 2 = 0)
    begin
      even[4] := input[4];
      atLestOne := True;
    end;
  if atLestOne = True then
    Search := Low(even)
  else
    Search := -1;
end;