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