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

Предыдущий
вопрос Следующий
вопрос

program Task_1;

var
N, number, sum, digitSum: integer;

begin
readln(N);
sum := 0;
for number := 1 to N - 1 do
begin
digitSum := 0;
for var i := 1 to length(number.ToString) do
begin
digitSum := digitSum + StrToInt(number.ToString[i]);
end;
if digitSum = sum then
begin
write(number, ' ');
end;
end;
if sum = 0 then
begin
write('нет');
end;
end.