Решение задачи в Pascal

[Джек12]

Помогите пожалуйста решить.
На отрезке [2,n] найти все натуральные числа, сумма цифр которых при умножении числа на a не изменится.

[kta87]

Джек12, а в этой задаче у тебя проблемы с ЯП или с математикой? Уточни, а то не ясно чем же тебе помочь

[Джек12]

С математикой, а помочь нужно с решением.. не могу сообразить как решить((
помогите пожалуйста

[min@y™]

не могу сообразить как решить

берёшь число, считаешь сумму его цифр, умножаешь число на а, снова считаешь сумму его цифр, сравниваешь с предыдущей суммой, если совпало – выводишь на экран. и так для всех чисел диапазона.

[Stilet]

найти все натуральные числа, сумма цифр которых

Функцию подсчета суммы я дам:

function asum(i:integer):Integer;
begin Result:=0;
 while i<>0 do begin
  Result:=Result+(i mod 10);
  i:=i div 10;
 end;
end.

В цикл ее завести и посчитать дальше сам сможешь?