Заметим, что у каждого числа делители парные, например, у числа 8 это 1 и 8, 2 и 4. Будем находить первый натуральный делитель числа, отличный от единицы, и проверять, делится ли сумма найденного делителя с его парным делителем на 10 с остатком 8. Если условие выполняется  — выводим исходное число и сумму его парных минимального и максимального делителей на экран и выходим из цикла для перебора делителей числа, иначе сразу выходим из цикла для перебора делителей числа.

Приведём решение на языке Pascal.

var
count, j, k, sqrtI, num: longint;
begin
num := 700000;
count := 0;
while True do begin
sqrtI := round(sqrt(num));
for j := 2 to sqrtI do begin
if num mod j = 0 then begin
if (j + num div j) mod 10 = 8 then begin
count := count + 1;
writeln(num, ' ', j + num div j);
break;
end
else break;
end;
end;
if count = 5 then break;
num := num + 1;
end;
end.

В результате работы программа должна вывести следующее:

700005 233338
700007 100008
700012 350008
700015 140008
700031 24168

Приведём решение Виктора Кима на языке Python.

count = 0
num = 700000
while count Приведём другое решение Мамаева Романа на языке Python.

count_del = 0
i = 700_000
while count_del Приведём решение Сергея Донец на языке PascalABC.NET.

uses School;
begin
var k := 0; // Счётчик
var x := 700001;
while k