function СуммаЦифр(Число: integer): integer;
begin
Result := 0;
while Число > 0 do
Result += Число mod 10;
Число := Число div 10
end
end;
for var ОчередноеЧисло := 1 to ReadInteger('n=') do
if СуммаЦифр(ОчередноеЧисло) = 10 then Print(ОчередноеЧисло)
end.
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= 30019 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