Wednesday, October 16, 2019

QBASIC to check whether the number is divisible by 13 or not using SUB

DECLARE SUB CHECK ( N )
INPUT "Enter any number "; N
CALL CHECK ( N)
END

SUB CHECK ( N )
IF N MOD 13 = 0 THEN
PRINT "The number is divisible by 13"
ELSE
PRINT "The number is not divisible by 13"
END IF
END
at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
  • My Father
      My father My father name is Prem kumar Sunuwar.He is 39 years old.He is a mansion.He is my super hero of my life. He always help and su...
  • Good friends are hard to find,harder to live,and impossible to forget
    Tour To Dhading Firstly, When I heard that we were going to Dhading for 1 night and 2 days i.e. on saturday and sunday( 16th an...
  • Gai Jatra
    Gai Jatra Gaijatra is the festival of cows.Gai is known as cow and jatra is known as festival in Nepal. This festival is basically cele...