Найти все числа,наименьшие заданного числа n, сумма чисел которых одинакова 10.

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программка не работает, обновите версию!

function СуммаЦифр(Число: integer): integer;

begin

 Result := 0;

 while Число gt; 0 do

 begin

   Result += Число mod 10;

   Число := Число div 10

 end

end;

begin

 for var ОчередноеЧисло := 1 to ReadInteger('n=') do

   if СуммаЦифр(ОчередноеЧисло) = 10 then Print(ОчередноеЧисло)

end.

n= 300

19 28 37 46 55 64 73 82 91 109 118 127 136 145 154 163 172 181 190 208 217 226 235 244 253 262 271 280