Question

Дан текст. Найти максимальное из имеющихся в нём чисел.

Answer 1

Ответ:

var S, word_:string;

   max, num:integer;

begin

max:=-2147483648;

readln(S);

S:=S+' ';

while S.Length > 0 do begin

 word_ := copy(S, 1, pos(' ', S, 1));

 delete(S, 1, pos(' ', S, 1));

 if TryStrToInt(word_, num) = true then begin

   if num > max then

     max:=num;

 end;

end;

writeln(num);

end.

Объяснение:

Answer 2

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

1. Разбейте текст на отдельные слова или токены.
2. Проверьте каждое слово или токен на то, является ли он числом.
3. Если слово или токен является числом, преобразуйте его в числовое значение.
4. Сравнивайте числовые значения и найдите наибольшее.

Вот пример кода на Python, который выполняет эти шаги:

pythonCopy code
import re

def find_max_number(text):
    words = re.findall(r'\b\d+\b', text)  # Извлечение всех чисел из текста
    if not words:
        return None  # Если чисел нет в тексте, вернуть None
    
    numbers = [int(word) for word in words]  # Преобразование чисел в список целых чисел
    max_number = max(numbers)  # Поиск максимального числа
    
    return max_number

text = "Пример текста с числами: 42, 17, и 1001"
max_number = find_max_number(text)
if max_number is not None:
    print(f"Максимальное число в тексте: {max_number}")
else:
    print("В тексте нет чисел.")

Просто замените содержимое переменной text на ваш текст, и код найдет и выведет максимальное число из данного текста.