Question

Pascal / Вводится последовательность натуральных чисел. Вывести максимальное простое число из последовательности.

Answer 1

Ответ:

var number, max:integer;

begin

   writeln('Введите 0, чтобы закончить ввод');

   while true do

       begin

           readln(number);

           if number = 0 then

               break;

           

           if number > max then

               max := number;

       end;

           

   writeln(max);

       

end.

Объяснение:

Answer 2

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

pascalCopy code
program MaxPrimeInSequence;

var
  num, maxNum: integer;

// Функция для проверки, является ли число простым
function IsPrime(n: integer): boolean;
var
  i: integer;
begin
  IsPrime := True;
  if n < 2 then
    IsPrime := False
  else
    for i := 2 to Trunc(Sqrt(n)) do
      if n mod i = 0 then
      begin
        IsPrime := False;
        Break;
      end;
end;

begin
  // Инициализация максимального числа
  maxNum := 0;

  // Ввод последовательности, введенный цикл завершается, когда вводится ноль
  repeat
    Write('Введите натуральное число (или 0 для завершения): ');
    Readln(num);

    // Проверка, является ли число простым и больше текущего максимального
    if (num > maxNum) and IsPrime(num) then
      maxNum := num;
  until num = 0;

  // Вывод результата
  if maxNum > 0 then
    Writeln('Максимальное простое число: ', maxNum)
  else
    Writeln('Простых чисел в последовательности нет.');
end.

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

Обратите внимание, что это базовый пример, и его можно изменить в зависимости от ваших конкретных требований.