Помогите с Олимпиадой ребята

[Vladik_2954]

Я решил 3 задачи из олимпиады, вот заканчиваю задачку. Подскажите что не так?
Условие:Вывести на экран все трехзначные числа, сумма цифр которых равна N.
Пытаться перебирать все трехзначные числа от 100 до 999, затем каким-то образом делением и вычитанием выделять отдельные цифры, искать их сумму, сравнивать с N достаточно сложно. Исходя из того, что трехзначное число состоит из 3 цифр, причем первая изменяется от 1 до 9, а вторая и третья – от 0 до 9.
Вот что я решил:

program Z3 ;
var
  h, i, m, k, n: integer;

begin
  write('Введите N=');
  readln(n);
    for i := 1 to 9 do
      for m := 0 to 9 do
        for k := 0 to 9 do
          if i + m + k = n then writeln(i, m, k);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[сфинкс]

3-ёх значное число:

i*100+m*10+k

или научнее:
i*10^2+m*10^1+k*10^0

и надеюсь в исходной программе
циклы закрываются правильно

и на вопрос как выделять цифры из числа:
также как и в прошлом ... веке:

число переводится в стринг
и переводятся в цифры отдельные символы

а вообще в моей главной теме
есть классная олимпийская задача

рассмотрели бы на информатике

[Vladik_2954]

посмотри у меня в темах еще помощь нужна)

[Serge_Bliznykov]

Сообщение от Vladik_2954

Вот что я решил Program Z3 ;

ну и нормальное решение.
Что не устроило?

[FPaul]

Можно избавиться от самого внутреннего цикла

var
  h, i, m, k, n: integer;

begin
  write('Введите N=');
  readln(n);
    for i := 1 to 9 do
      for m := 0 to 9 do
      begin
          k := n-i-m;
          if (k >= 0) and (k<10) then writeln(i, m, k);
      end;
end.

[Вадим Мошев]

Либо, если допускается работать с множествами, то условие можно немного сократить:

if k in [1..9] then writeln(i, m, k);

[Bart`s]

я не въехал в предыдущие Комменты, но если правильно понял, то вот ещё вариант как сделать не перебирая лишние вариации чисел. на плюсах только.

int main(){
int n,j,k;
cin>>n;
for(int i=1;i<=n;i++)
   for(j=0, k=n-i; k>=0;j++,k--)
      cout<<i<<j<<k<<endl;				
getch();
}

[Serge_Bliznykov]

Сообщение от Bart`s

то вот ещё вариант как сделать не перебирая лишние вариации чисел. на плюсах только.

реально?
Вы думаете, что это будет работать?
Введите N, например, 25 и расскажите, что выдала программа.