Question

Среди всех 3-значных чисел укажите те,сумма цифр которых равна данному числу k.

Answer 1

var
  a, k: integer;

begin
  readln(k);
  for a := 100 to 999 do
    if ((a div 100) + (a mod 100 div 10) + (a mod 10) = k) then
      writeln(a);
end.