Задача на циклы Опции

[Муся]

???Привет! Помогите, пожалуйста, умные люди чайнику решить задачу на циклы.
Задача: Среди чисел 1<=N<=100. Найти все пары чисел для которых их сумма равнялась бы произведению.
Заранее спасибо.

[trminator]

2Oleg309: сумма двух чисел должна равняться их произведению

Таких чисел, по-моему, всего одна пара - (2, 2). На всякий случай набросал программу, которая это проверила

Программа, которой я это проверял:

Код

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);
end.

Ее можно неслабо ускорить. Муся, догадайся, как.

А вот та программа, которая тебе нужна:

Код

begin writeLn('2, 2') end.

Красота, правда?  ;D