Как считать число из строки? - Free Pascal

Формулировка задачи:

В первой строке задано количество заданных Пете примеров N, а далее следует N строк в формате A+B, где A и B - 2 заданных натуральных числа, между ними без пробелов символ выполнения действия сложения "+". Соответствие входных данных указанному формату гарантируется (см. пример входных данных). Входные данные не превышают 10^500. (0 < N <= 250) Как считать число?

Решение задачи: «Как считать число из строки?»

Листинг программы

var
  a: array [0..1001] of Char;
  b: PChar;
  i: Integer;
...
  ReadLn(a);
  b:=a; while b^<>'+' do Inc(b);
  b^:=#0; Inc(b);

Объяснение кода листинга программы

В данном коде используется язык программирования Free Pascal. Вот список действий, которые происходят в этом коде:

Объявление переменных:
- a: массив символов размером от 0 до 1001;
- b: указатель на первый символ в массиве a.
Чтение строки с помощью функции ReadLn(). Введенная строка сохраняется в массиве a.
Переменная b инициализируется значением первого символа в массиве a.
В цикле происходит поиск символа '+'. Для этого используется условие b^<>'+', где ^ обозначает операцию побитового исключающего OR.
Если символ '+' найден, то его значение присваивается переменной b. Затем, с помощью Inc(b), указатель b инкрементируется на 1.
Если символ '+' не найден, то в массив a добавляется символ новой строки #0 (или \0). Затем, с помощью Inc(b), указатель b инкрементируется на 1.
В конце цикла, значение переменной b присваивается новому символу в массиве a.
Результатом работы программы будет строка, которая была введена с клавиатуры и сохранена в массиве a.