найти все трех значные числа где сумма первого и второго равна третьей

Сделал. Кстати, Kulina забыла числа типа 909, да я и сам подумал о них только запустив программу и увидев их)

Ну можно конечно... но зачем, если можно минутку подумать, найти пару простых закономерностей и получить в 20 раз более быструю программу?

112,123,134,145,156,167,178,189213,224,235,246,257,268,279314,325,336,347,358,369415,426,437,448,459516,527,538,549617,628,639718,719819

var z1,z2:byte;begin  for z1:=1 to 9 do begin    for z2:=0 to 9-z1 do begin      writeln(z1,z2,z1+z2);    end;  end;end.По просьбе автора задачи - вариант с 3 цикламиvar x,y,z:byte;beginfor x:=1 to 9 do begin  for y:=0 to 9 do begin   for z:=0 to 9 do begin     if (x+y=z) then writeln(x,y,z);    end;  end;end;end.