Sum of digits equal to a given number in PL/SQL

Prerequisite PL/SQL introduction
In PL/SQL code groups of commands are arranged within a block. A block group related declarations or statements. In declare part, we declare variables and between begin and end part, we perform the operations.

Given a number and range and the task is to display all the numbers whose sum of digits is equal to the given number.
Examples:

Input: x = 23
Output: 599 689 698 779 788 797 869 878 887 896 959 968 977 986 995
(Note: range->1 to 999)

Input: x=12
Output: 39 48 57 66 75 84 93
(Note: range->1 to 100)

Approach is to take a number, find all the possible numbers in the given range and sum all the digits of number and if sum of digits is equal to the number, then print that number.

Below it’s implementation:

filter_none

edit
close

play_arrow

link
brightness_4
code

--Take a number 
--sum all digit of the number 
--if sum digit is 25  
--then display all 
--Declaration block 
DECLARE 
    --declare N variable 
    n NUMBER; 
    --declare B variable 
    m NUMBER; 
    --declare S variable 
    --S initialize with 0 
    s NUMBER := 0; 
BEGIN 
    --Code block  
    --loop run until max 999 to min 1 
    FOR i IN 1..999 LOOP 
        n := i; 
  
        WHILE n > 0 LOOP 
            --logic of digit sum 
            m := MOD(n, 10); 
  
            s := s + m; 
  
            n := Trunc(n / 10); 
        END LOOP; 
  
        IF s = 25 THEN 
          --digit sum to be same with 25 
          --Display in result 
          dbms_output.Put_line(i 
                               ||' '); 
        END IF; 
  
        s := 0; 
    END LOOP; 
--end loop 
END
--end program 

chevron_right


Output:

799 
889 
898 
979 
988 
997 


My Personal Notes arrow_drop_up

Check out this Author's contributed articles.

If you like GeeksforGeeks and would like to contribute, you can also write an article using contribute.geeksforgeeks.org or mail your article to contribute@geeksforgeeks.org. See your article appearing on the GeeksforGeeks main page and help other Geeks.

Please Improve this article if you find anything incorrect by clicking on the "Improve Article" button below.




Article Tags :
Practice Tags :


Be the First to upvote.


Please write to us at contribute@geeksforgeeks.org to report any issue with the above content.