Задача на Паскале №3

[spaincome]

Текст задачи: Дано число А. Диапазон числа 0 < A < 20. Вывести все трехзначные целые числа, сумма цифр которых равна А.

Формат ответа: файл с исходным кодом решения задачи на одном из допустимых языков программирования.

ЯП: С, С++, Pascal

Входные данные (программа должна считать):

Целое число А

Выходные данные (программа должна вывести):

Трехзначные целые число удовлетворяющие условию задачи

Значения должны быть выведены каждый раз с новой строки и возрастающей последовательности (от наименьшего числа к наибольшему)

[PavelDD]

Буду писать на Pascal.

Вот функция, возвращающая сумму цифр в числе.

Function SumD(n:LongInt):integer;
var Sum:integer;
 begin
  Sum:=0;
  while n>0 do begin
   Sum:=Sum + n mod 10;
   n:=n div 10;
  end;
  SumD:=Sum ;
 end;

Дальше читаем число A в диапазоне 0 < a < 20:

readln(a);
if a in [1..19] then continue
else write('Вы ввели неправильное число');

И сама программа:

for i:=100 to 999 do
if SumD(i)=a then writeln(i);

С возрастающей последовательностью подумаете сами. Я Вам предлагаю каждый раз i присваивать какому-то элементу из массива и дальше просто сортировать массив.
Попробуйте.Удачи.

[Serge_Bliznykov]

возрастающей последовательностью подумаете сами.

не надо ничего придумывать!

дело в том, что цикл
for i:=100 to 999 do
будет гарантировано выдавать i в порядке возрастания.
Так что, это уже готовое решение!