Question

Дано натуральное число N. Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать).

Pascal

Answer 1

var N,s,x:integer; 
begin s:=0; 
writeln('Введите число'); 
readln(N); 
x:=N; 
while x<>0 do 
begin 
s:=s+(x mod 10);
x:=x div 10; 
end; 
if sqr(n)=power(s,3) then writeln('Верно')    
else writeln('Неверно'); 
end.