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

Информация — от латинского слова "information", что означает сведения, разъяснения, изложение.                                                                       Информа́тика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.                                                                Программи́рование — процесс создания компьютерных программ.

Цикл – это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.

10.1.Оператор цикла WHILE (цикл ПОКА).

Формат оператора: WHILE логическое выражение DO;

Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin … end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.

ПРИМЕР 1. Программа подсчета суммы S первых 1000 членов гармонического ряда

1+1/2+1/3+1/4+…1/N.

Program Summa;

Var S:real;

N:integer;

Begin

S:=0; N:=0;

While n<1000 do

Begin

N:=n+1;

S:=s+1/n

End;

Writeln(s);

Readln

End.

Объяснение: