Question

Pascal. Из трех заданных чисел выбрать наименьшее четное

Answer 1

Ответ:

var

 a: array [1..3] of Integer;

 i, imin: Integer;

begin

 for i := Low (a) to High (a) do begin

   Write (i, ' число: ');

   ReadLn (a [i]);

 end;

 imin := 0;

 for i := Low (a) to High (a) do begin

   if a [i] mod 2 = 0 then

     if imin = 0 then

       imin := i

     else if a [i] < a [imin] then

       imin := i;

 end;

 if imin <> 0 then

   WriteLn ('Наименьшее четное = ', a [imin])

 else

   WriteLn ('Четных чисел нет.');

 ReadLn;

end.

Answer 2

Привет! Чтобы выбрать наименьшее четное число из трех заданных, тебе нужно выполнить следующие шаги:

1. Проверь, является ли каждое из трех чисел четным или нечетным.
2. Отфильтруй только четные числа.
3. Сравни найденные четные числа и выбери наименьшее из них.

Вот пример кода на языке Pascal, который выполняет это задание:

pascalCopy code
var
  number1, number2, number3, smallestEven: integer;

begin
  // Введи значения трех чисел
  writeln('Введите первое число:');
  readln(number1);
  writeln('Введите второе число:');
  readln(number2);
  writeln('Введите третье число:');
  readln(number3);

  smallestEven := 0; // Инициализируй переменную для хранения наименьшего четного числа

  // Проверка первого числа
  if (number1 mod 2 = 0) then // Проверяем, является ли число четным
  begin
    smallestEven := number1; // Если да, то это наименьшее четное число на данный момент
  end;

  // Проверка второго числа
  if (number2 mod 2 = 0) then
  begin
    if (smallestEven = 0) or (number2 < smallestEven) then // Проверяем, является ли число наименьшим
    begin
      smallestEven := number2;
    end;
  end;

  // Проверка третьего числа
  if (number3 mod 2 = 0) then
  begin
    if (smallestEven = 0) or (number3 < smallestEven) then
    begin
      smallestEven := number3;
    end;
  end;

  // Вывод результата
  if (smallestEven = 0) then // Если нет четных чисел, smallestEven останется равным 0
  begin
    writeln('Нет четных чисел.');
  end
  else
  begin
    writeln('Наименьшее четное число: ', smallestEven);
  end;
end.

Этот код позволит тебе ввести три числа и выявить наименьшее четное число среди них.