Question

С клавиатуры вводится целое число x. Необходимо найти наименьшую четную цифру числа. Если такой цифры нет, вывести - NO. Примечание: цифра "0" - четная. В паскале ABC.

Answer 1

Ответ:

var x,k: integer;

begin

k:=10;

read(x);

repeat

if (abs(x) mod 10 mod 2 = 0) and (abs(x) mod 10 < k) then k:=abs(x) mod 10;

x:=x div 10

until x=0;

if k=10 then write('NO')

else write(k)

end.

Answer 2

Для нахождения наименьшей четной цифры введенного числа вам нужно выполнить следующий псевдокод:

pascalCopy code
program FindSmallestEvenDigit;
var
  x, smallestEvenDigit, currentDigit: integer;
begin
  write('Введите целое число x: ');
  readln(x);

  smallestEvenDigit := -1;  // Инициализируем переменную наименьшей четной цифры

  while x > 0 do
  begin
    currentDigit := x mod 10;  // Получаем последнюю цифру числа

    if (currentDigit mod 2 = 0) and ((smallestEvenDigit = -1) or (currentDigit < smallestEvenDigit)) then
      smallestEvenDigit := currentDigit;

    x := x div 10;  // Удаляем последнюю цифру числа
  end;

  if smallestEvenDigit = -1 then
    writeln('NO')
  else
    writeln('Наименьшая четная цифра в числе: ', smallestEvenDigit);
end.

Эта программа сначала считывает целое число x, затем перебирает все его цифры, находя наименьшую четную цифру. Если в числе нет четных цифр, программа выведет "NO".