паскаль. определить, равен ли квадрат заданного четырехзначного числа кубу суммы цифр этого числа

Question

Елена Левина · Accepted Answer

var a,b:longint; 
begin 
readln(a); b:=a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10; 
writeln(a*a=b*b*b); readln 
end.

Илья Рылов · Answer

вот тебе сумма цифр, остальное сам 
program sumcifr; 
uses crt; 
var 
n: longint; 
s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
readln; 
end.