Palindrome no of string

-



DECLARE SUB PAL(N$)
CLS
INPUT"ENTER ANY WORD";H$
CALL PAL(N$)
END
SUB PAL(N$)
FOR I=LEN(N$) TO 1  STEP-1
B$=MID$(N$,I,1)
C$=C$+B$
NEXT I
IF N$=C$ THEN
PRINT"THE GIVEN WORD IS PALINDROME"
ELSE
PRINT"THE GIVEN WORD IS NOT PALINDROME"
END IF
END SUB

Comments

Post a Comment

Popular posts from this blog

experience of SEE exam cancelled and covid-19

-
When the lockdown started, I was ecstatic. My final year of school was about to finish, the SEE exam was certainly about to be cancelled, the sun was shining and that wide smirk in my face was bright. I was happy after the news, and was not saddened more. Nevertheless, I questioned myself,” how thorny could staying at home possibly be?” After a while, the reality of the situation started to show up. Being locked at home for long got to be more difficult days after the days. I started getting distressed about the pandemic. I had nightmares most nights, and started facing insomnia. It was alike being plunged, trapped in the same place. I never had a patience regarding this tough time, in fact who can cope these for a long period.  However, over time, I initiated ways to deal with the pandemic, even when it was, still is a forced thing. I then realized that this situation of lockdown, gave me much times to work on the things I like, my hobbies, that had been previously hectic by schoo...
Read more