Среди чисел n больше 1 и меньше 100, найти все пары чисел, для которых их сумма равна их произведению. Паскаль

Question

Левон

6 июня, 15:31

+2

Ответы (1)

Знаете ответ на вопрос?

Ванюра · Answer 1

Var n, i:integer;

begin

for n:=2 to 99 do

begin

for i:=2 to 99 do

begin

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

end;

end;

end.