help me please. WAP in qbasic to display the alternate characters present in the given word.
Answers
Answered by
1
Answer:
CLS
INPUT "ENTER ANY WORD"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
IF I MOD 2 = 1 THEN
W$ = W$ + LCASE$(B$)
ELSE
W$ = W$ + UCASE$(B$)
END IF
NEXT I
PRINT W$
END SUB
Similar questions