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

Question

Владилена

5 ноября, 21:16

+1

Ответы (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.