Question

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

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.