PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
function СуммаЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 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