Question

Напешите программу, которая в последовательности натуральных чисел определяет максимальное число, меньше 1000. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивающихся числом 0 (0-признак окончания ввода, не входит в последовательность). Количество чисел не привыкает 1000. Введённые числа не превышают 30000.Программа должна вывести одно число-максимальное число последовательности меньше 1000.Пример работы программы: Входные данные: 265. 3248789350Выходные данные:789Обязательно писать программу на языке паскаль!

Answer 1

Ответ:

var x, max: integer;

begin

   x := -MAXINT;

   max := x;

   while(x <> 0) do

   begin

       readln(x);

       if (x > max) and (x < 1000) and (x <> 0) then max := x;

   end;

   writeln(max);

end.

Answer 2

Конечно, вот программа на языке Pascal, которая выполняет заданную задачу:

pascalCopy code
program MaxNumber;

var
  inputNumber, maxNumber: integer;

begin
  maxNumber := 0;
  
  repeat
    write('Введите натуральное число (0 для завершения): ');
    readln(inputNumber);
    
    if (inputNumber > maxNumber) and (inputNumber < 1000) then
      maxNumber := inputNumber;
      
  until inputNumber = 0;
  
  writeln('Максимальное число меньше 1000: ', maxNumber);
end.

Скопируйте этот код в среду разработки Pascal (например, Lazarus) и выполните его. Программа будет запрашивать ввод чисел до тех пор, пока не будет введено число 0, а затем выведет максимальное число меньше 1000 из введенных чисел.