Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. Если таких цифр нет, то вернуть -1. Требования к подпрограмме: Процедура должна называться "search" и иметь два параметра: первый - четырехзна...
Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. Если таких цифр нет, то вернуть -1.
Требования к подпрограмме:
Процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. Второй - результат работы подпрограммы.
(Паскаль абц (Pascal abc))
Гость
Ответ(ы) на вопрос:
Гость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;
Гость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;
Не нашли ответ?
Похожие вопросы