Написать программу поиска двузначных чисел таких, что если к сумме цифр этого числа прибавить квадрат этой суммы, то получится это число. Посчитать эти числа — QBasic(Бейсик)

Для решения данной задачи на языке QBasic, вам потребуется написать код, который будет перебирать все двузначные числа и проверять их на соответствие условию задачи. Вот пример кода:

CLS
PRINT "Двузначные числа, удовлетворяющие условию:"
FOR num = 10 TO 99
    tens = num \ 10
    ones = num MOD 10
    sum_digits = tens + ones
    result = sum_digits + sum_digits * sum_digits
    IF result = num THEN
        PRINT num
    END IF
NEXT num
END

Этот код выполняет следующие действия:

1. Очищает экран.
2. Выводит на экран сообщение «Двузначные числа, удовлетворяющие условию:»
3. Перебирает все числа от 10 до 99.
4. Вычисляет сумму цифр числа.
5. Считает результат по формуле: результат = сумма цифр + квадрат суммы цифр.
6. Проверяет, равен ли результат исходному числу, и если да, выводит число на экран.
7. Завершает программу после проверки всех чисел.

Тестирование выполнено в программе QB64 ( Скачать )