определим как горка целое положительное трёхзначное число x для которого выполняется следующие условия сумма первой и последней цифры равна средней цифре язык Qbasic

Так где тут горка?

Запустите программу, получите все 45 чисел, соответствующие выше приведенному условию

Зачем запускать? Такую простейшую программу и так видно, что она работает. Я пытаюсь понять, причем тут какая-то "горка"....

Человек так желает, почему я должен сомневаться?

А, так это "сферический конь в вакууме"...

Получим 45 трехзначных чиселCLS   N = 1   FOR i = 1 TO 9   FOR j = 0 TO 9   FOR k = 0 TO 9   IF i + k = j THEN   PRINT N; i * 100 + j * 10 + k   N = N + 1   END IF   NEXT k   NEXT j   NEXT iПрограмма выдает 45 таких чисел