Анастасия, Вам нужно поменять местами строки 60 и 61. Сейчас программа ищет только одну пару чисел, а по условию нужно выводить их все, т.к. вывод сообщения в Memo1 произойдет только после прохода двух циклов for (для параметров i и j)
Если хотите улучшить программу: можно добавить проверку на тот случай, если ни одной подходящей пары не будет найдено.
Можно еще в StringGrid'е оставить одну строку, т.к. остальные не используются, за это отвечает свойство RowCount
Мемо1 в начале процедуры желательно очистить от сообщений, Memo1.Lines.Clear; если только Вы не хотите хранить всю историю работы программы.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Во сколько раз уменьшится информационный объем страницы текста (текст не содержит символов форматирования) при его преобразовании из кодировки unicode (таблица кодировки содержит 65 536 символов) в кодировку windows (таблица кодировки содержит 256 символов)? в ответе укажите только число.
256 = 2^8 - 8 бит на символ
ответ: 2