Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n - Turbo Pascal

Формулировка задачи:

РЕШИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО! Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n.

Код к задаче: «Дано натуральное число n (n ≤ 99). Выяснить, верно ли, что (n-в квадрате) равно кубу суммы цифр числа n - Turbo Pascal»

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.

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ