Дано натуральное число 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.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая предоставляет функции для работы с регистрами и вводом-выводом.
  2. Затем объявляются три переменные: n, a и b, которые будут использоваться для хранения введенного числа, его частного по 10 и остатка.
  3. Далее идет цикл Repeat-Until, который запрашивает у пользователя ввод числа n и проверяет, пока это число меньше или равно 99.
  4. Внутри цикла переменная n делится на 10, а результат сохраняется в переменной a.
  5. Затем из числа n вычитается a*10, и результат сохраняется в переменной b.
  6. После окончания цикла проверяется условие nn=(a+b)(a+b)*(a+b). Если оно истинно, то выводится сообщение True.
  7. Если условие ложно, то выводится сообщение False.
  8. Конец программы.

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы