Discussion on: Daily Challenge #11 - Cubic Numbers

[Alvaro Montoro]

Pascal

program CubicNumber;

uses Math;

function isCubicNumber(number: integer): boolean;
var
   hundreds, tens, units, original: integer;
   result: boolean;
begin

   original := number;
   result := false;

   if (number > -1) and (number < 1000) then
   begin
      units := number mod 10;
      number := trunc(number / 10);
      tens := number mod 10;
      hundreds := trunc(number / 10);

      result := power(units, 3) + power(tens, 3) + power(hundreds, 3) = original;
   end;

   isCubicNumber := result;

end;

var
   num: integer;
begin
   num := 153;
   writeln('Is ', num, ' a cubic number? ', isCubicNumber(num));
end.

Here is a live demo on RexTester.