Question

Вводятся строки. Определить самую длинную строку и вывести её номер на экран.Паскаль ABC, без массива.​

Answer 1

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

Ниже приведён пример кода на Паскале, который реализует это:

pascalCopy code
program LongestString;

var
  currentString, longestString: string;
  currentLength, longestLength, lineNumber: integer;

begin
  lineNumber := 0;
  longestLength := 0;

  while true do
  begin
    // Читаем строку с клавиатуры
    readln(currentString);
    
    // Проверяем, не является ли строка пустой (выход из программы)
    if currentString = '' then
      break;
    
    // Увеличиваем номер строки
    lineNumber := lineNumber + 1;
    
    // Находим длину текущей строки
    currentLength := length(currentString);
    
    // Сравниваем с текущей максимальной длиной
    if currentLength > longestLength then
    begin
      longestString := currentString;
      longestLength := currentLength;
    end;
  end;

  // Выводим результаты
  writeln('Самая длинная строка: ', longestString);
  writeln('Её номер: ', lineNumber);
end.

Программа будет ждать ввода строк с клавиатуры до тех пор, пока вы не введёте пустую строку (просто нажмите Enter без ввода текста). Затем программа выведет информацию о самой длинной строке и её номере.

Обратите внимание, что это основной пример и не включает проверок на некорректный ввод данных (например, пустая строка при запуске программы). В реальных приложениях следует предусмотреть дополнительные проверки.