Question

паскаль. проверить равно ли целое трехзначное число а сумме кубов своих цифр​

Answer 1

program programone;

var

a,ed,des,sot:Integer;

begin

ReadLn(a);

sot:=a div 100;

des:=(a mod 100) div 10;

ed:=a mod 10;

if ed*ed*ed+des*des*des+sot*sot*sot=a then

WriteLn('Число равно сумме кубов своих цифр')

else

WriteLn('Число не равно сумме кубов своих цифр');

end