Question

Паскаль. Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых СУММА ВСЕХ ЦИФР совпадает с СУММОЙ цифр данного числа. Если таких чисел нет, то вывести слово "нет".
Пример: N = 44. Числа: 17, 26, 35.

Answer 1

function SumDigit(n: integer): integer;

begin

 result := 0;

 var s := n.ToString;

 for var i := 1 to s.length do

   result += s[i].ToDigit;

end;

begin

 var n := ReadInteger();

 var SumN := SumDigit(n);

 var found := False;

 for var i := 1 to n - 1 do

   if SumDigit(i) = SumN then

   begin

     Print(i);

     found := True

   end;

 if not found then Print('нет')

end.