Найти все трехзначные числа,сумма которых равна их произведению Паскаль

Question

Найти все трехзначные числа,сумма которых равна их произведению Паскаль

Comments

а такие есть?

---

999 + 999 = 1998, а 100 * 100 = 10000 (сумма макс. 3х значных меньше произведения мин.) 

---

мне нужна программа

Answer 1

var
  a,b,i,n:integer;
   begin
    for i:=100 to 999 do
     if ((i mod 10) + (i div 10) + (i div 100)) = ((i mod 10) * (i div 10) * (i div 100)) then
      begin
     write(i,' ');
         a:=a+1;
         end;
     if a=0 then
     writeln('Нет таких чисел');
     end.
{Программа работает, но чисел таких нет}

Answer 2

Аналогично


begin
  for var a := 100 to 999 do begin
    for var b := 100 to 999 do begin
      if a * b = a + b then writeln(a,'-', b);
    end;
  end;
end.