Question

Дано n натуральное. найти и вывести все числа в интервале от 10 до n-1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет вывести "Нет".
Паскаль

Answer 1

var
  i, n, j, p, s: longint;
  st: string;
  b: boolean;
 begin
  s := 0;
  b := false;
  readln(n);
  for i := 1 to n.ToString.Length do
  s := s + strtoint(n.ToString[i]);
for i := 10 to n - 1 do
  begin
    st := i.ToString;
    p := 1;
    for j := 1 to st.Length do
      p := p * strtoint(st[j]);
    if(p = s) then begin b := true;writeln(i); end;
   end;
  if(b = false) then write('Нет');
end.