Question

В паскале. Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное трём. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Гарантируется, что в последовательности есть хотя бы одно число, кратное трём. Программа должна вывести наименьшее число, кратное трём.Пример работы программы: Входные числа: 45 10 9 0 Выходные числа: 9

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0)

     .Where(p -> p mod 3 = 0).Min.Println

end.

Answer 2

Вот пример программы на языке Pascal, которая решает задачу:

pascalCopy code
program SmallestMultipleByThree;

const
  MaxNumbers = 1000;

var
  numbers: array [1..MaxNumbers] of Integer;
  input: Integer;
  smallestMultiple: Integer;
  i: Integer;

begin
  // Ввод чисел
  writeln('Введите числа:');
  i := 1;
  repeat
    readln(input);
    numbers[i] := input;
    i := i + 1;
  until (input = 0) or (i > MaxNumbers);

  // Поиск наименьшего числа, кратного трём
  smallestMultiple := MaxInt;
  for i := 1 to (i - 1) do
  begin
    if (numbers[i] mod 3 = 0) and (numbers[i] < smallestMultiple) then
      smallestMultiple := numbers[i];
  end;

  // Вывод результата
  writeln('Наименьшее число, кратное трём:', smallestMultiple);
end.

Программа предлагает ввести числа в последовательности и сохраняет их в массив numbers. Затем она проходит по массиву и ищет наименьшее число, которое кратно трём. Результат выводится на экран.

Обратите внимание, что данная программа не выполняет проверку на то, что в последовательности есть хотя бы одно число, кратное трём, как требуется в задаче.