задача на разбор числа

[Яська]

Найти сумму всех натуральных трехзначных чисел, у которых цифры, составляющие число образуют возрастающую последовательность.

подскажите идею хоть-какую нибудь.ничего в голову не лезет.

[alex_fcsm]

for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   if (i<j) and (j<k) then  Success;

[Яська]

что такое Success? если не секрет?
программу мне нужно написать на Delphi.
заранее спасибо

[alex_fcsm]

под Success я подразумевал действия по выводу числа, куда надо туда и выводите.

программу мне нужно написать на Delphi.

Так не пролог вроде

[Hacker19_90]

Success в переводе с английского успех!
Этим вам хотели сказать что если после трёх циклов выполнится условие ,то число мы нашли!
Число можно сделать таким образом
сhislo := i*100+j*10+k

[Яська]

а число представляется как? как одномерный массив? не совсем поняла

Hacker19_90, спасибо. сейчас попробую.

procedure TForm1.Button1Click(Sender: TObject);
var chislo:integer;
i,j , k:integer;
begin
 chislo:= i*100+j*10+k;
 for i:=1 to 9 do
 for j:=0 to 9 do
  for k:=0 to 9 do
   if (i<j) and (j<k) then Memo1.Lines.Add(Inttostr(chislo));
end;

end.

вот,что получилось.но в мемо он мне выдаёт одно число 177696016 много раз


Пользуйтесь кнопкой правка!!!
Правильно форматируйте код! Вы уже написали больше 30 сообщений, а до сих пор не научились

[Яська]

всё,я нашла ошибку) chislo:= i*100+j*10+k нужно писать в цикле,а не перед ним)
спасибо за помощь)

[LeBron]

for i:=1 to 9 do 
for j:=i+1 to 9 do 
for q:=j+1 to 9 do ans:=ans+100*i+10*j+q;

Вот как это делается.