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

Получим 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 таких чисел