Дано натуральное число N. Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать). Pascal
Дано натуральное число N. Определить, верно ли, что квадрат значения N равен кубу суммы цифр числа N (операции над строками не использовать).
Pascal
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы