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

disel

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

1
2
3
4
5
6
7
8
9
10
11
12
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 ( Скачать )

Похожие записи/страницы:

Leave a Comment