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

serega228002 serega228002    3   06.06.2019 23:40    5

Ответы
petrov100469 petrov100469  06.07.2020 22:24
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика