DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "PALINDROME WORD IS ";REV$(S$)
END
FUNCTION REV$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
B$ = MID$(S$, I, 1)
W$ = W$ + B$
NEXT I
REV$ = W$
END FUNCTION
Subscribe to:
Post Comments (Atom)
-
My father name is Grishma Raj Shrestha. He is like a superhero to me. He is 42 years old. He is old But he is a superhero to me. He is real...
-
13 years ago when I came and stood in front of the Jagat mandir school, I was new to the environment. As the timed past, I slowly started to...
-
We all grade 10 students were taken to picnic with our subjects teacher on the date of Magh 26, 2076(February 9,2020). Our destination was...
No comments:
Post a Comment