Дано натуральное число N. Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать).
Pascal
Pascal
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.