Question

Напишите программы на PascalABC.Net Задача №2: Напишите программу, которая в последовательности натуральных чисел определяет минимальное значение четных чисел, которые больше 100. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 200. Введённые числа не превышают 300. Программа должна вывести одно число: минимальное из четных чисел, которые больше 100. Например: 23 108 121 148 34 0 ==> 108

Answer 1

begin

 ReadSeqIntegerWhile(p -> p <> 0)

   .Where(p -> p.IsEven and (p > 100))

   .Min

   .Println

end.

Answer 2

Для решения данной задачи на языке PascalABC.Net, нужно организовать ввод последовательности чисел и отслеживать минимальное значение четных чисел, которые больше 100. Когда пользователь вводит 0, программа должна прекратить считывание и вывести минимальное подходящее число.

Вот готовая программа для решения задачи:

pascalCopy code
program MinEvenAbove100;

var
  number, minEvenAbove100: Integer;

begin
  minEvenAbove100 := 301; // Инициализируем переменную значением, которое гарантированно превышает 300
  
  repeat
    Write('Введите число: ');
    Readln(number);
    
    // Проверяем, что число четное и больше 100, и если оно меньше текущего минимального, обновляем минимальное значение
    if (number > 100) and (number mod 2 = 0) and (number < minEvenAbove100) then
      minEvenAbove100 := number;
  until number = 0; // Повторяем ввод, пока не введут 0
  
  if minEvenAbove100 <= 300 then
    Writeln('Минимальное четное число, больше 100: ', minEvenAbove100)
  else
    Writeln('Нет подходящих чисел.');
end.

Программа запрашивает ввод чисел до тех пор, пока не будет введен 0. Если в последовательности нет четных чисел, больших 100, то будет выведено сообщение "Нет подходящих чисел." В противном случае, будет выведено минимальное четное число, которое удовлетворяет условиям задачи.