Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n - Turbo Pascal
Формулировка задачи:
РЕШИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО!
Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n.
Решение задачи: «Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n»
textual
Листинг программы
uses crt; var n,a,b:integer; begin Repeat writeln; write('Введите n (меньше 100) '); readln(n); Until n<=99 ; a:=n div 10; b:=n-a*10; If n*n=(a+b)*(a+b)*(a+b) then Writeln(' True') Else Writeln(' False'); End.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая предоставляет функции для работы с регистрами и вводом-выводом.
- Затем объявляются три переменные: n, a и b, которые будут использоваться для хранения введенного числа, его частного по 10 и остатка.
- Далее идет цикл Repeat-Until, который запрашивает у пользователя ввод числа n и проверяет, пока это число меньше или равно 99.
- Внутри цикла переменная n делится на 10, а результат сохраняется в переменной a.
- Затем из числа n вычитается a*10, и результат сохраняется в переменной b.
- После окончания цикла проверяется условие nn=(a+b)(a+b)*(a+b). Если оно истинно, то выводится сообщение
True
. - Если условие ложно, то выводится сообщение
False
. - Конец программы.