CLS
INPUT "Enter any number"; N
A = N 
S = 0
WHILE N <> 0
R = N MOD 10
S = S*10+R
N = N\10
WEND
IF A= S THEN
PRINT " The number is palindrome"
ELSE
PRINT "The number is not palindrome"
END IF
END

Comments

Post a Comment

Popular posts from this blog

Image
Life is to short enjoy your life today because yesterday has gone tomorrow may never come.We should have to do everything in our life.So,we get very good opportunity  to visit new places to our friends and to our teachers in the occasion of visit Nepal 2020. It celebrate in every 10 years in Nepal.We had 4 night 5 days an educational tour in from 2076/09/19 to 2076/09/23. We were all together 30 student with four teachers Deepak sir, Bijay sir, Murari sir, and Sabina mam.It was very  best memorable tour. We got a shedule of the tour and according to shedule we visit the places. 1st Day: Kathmandu to Sauraha (Sauraha night saty). 2nd Day: Sauraha to Ghandruk (Night saty at Ghandruk). 3rd Day: Ghandruk to Pokhara (Night saty at Pokhara). 4th Day: Pokhara visiting and night saty at Bandipur. 5th day: Back to Kathmandu(Observing Siddha gufa on the way). 1st day (Kathmandu to Sauraha):                                                         Sir told that we should have
Read more
CLS INPUT 'Enter any number'; N A = N S = 0 WHILE N <> 0 R = N MOD 10 S = S+R^3 N = N\10 WEND IF A=S THEN PRINT "The number is armstrong" ELSE PRINT "The number is not armstrong" END IF END 
Read more