Найти все пары чисел от 1 до 100, для которых их сумма равна их произведению.

Решение не очень сложное, запускаем два цикла и перебираем все числа, на самом деле условию удовлетворяет только число 2.

program chisla; {для чисел от 1 до 100 найти пары для которых

сумма этих чисел = их произведению}

var

i, j : integer;

begin

for i := 1 to 100 do

for j := 1 to 100 do

if i + j = i * j then writeln(i, ' + ', j, ' = ', i, ' * ', j);

readln;

end.

Скачать решение.