Question

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

Answer 1

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