-----------------------------------

vexd

Mon Sep 29, 2003 6:37 pm


Number Formatting [Digits(Len), Sum, Reverse Sequence)

-----------------------------------

%***********************************************************************************************
%* Author: VeXD                                                                       *
%* Date: Sept, 24 2003                                                                         *
%* Purpose: Make a prog that will print the number of digits, the sum and the num in reverse.  *
%* Input: A number (int)                                                                       *
%* Output: The program will output the above values                                            *
%***********************************************************************************************

var intNum : int
var intReverse : int
var intSum : int := 0
var intLen : int := 0

put "Please enter a positive number."
get intNum

loop
    exit when intNum > 0
    put "Please enter a VALID positive number."
    get intNum
end loop

put "--->"
put "Reverse Sequence: " ..

loop
    intReverse := intNum mod 10
    intNum := intNum div 10
    intLen := intLen + 1
    intSum := intSum + intReverse
    put intReverse ..
    exit when intNum = 0
end loop

put "\nNumber of Digits: ", intLen
put "Total Sum: ", intSum


Intresting progame, have some bits  :P 
+6 bits