Qbasic programs solutions(part 9) for class 8, class 9 and class 10

CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
WHILE N <> 0 
R = N MOD 10 
IF R MOD 2 = 0 THEN S = S + R ^ 3 
N = N \ 10 
WEND 
PRINT "SUM OF CUBE OF EVEN DIGITS"; S 
END 

CLS 
INPUT "ENTER ANY NUMBER"; N 
PRINT "ODD DIGITS ARE "; 
WHILE N <> 0 
R = N MOD 10 
IF R MOD 2 = 1 THEN PRINT R; 
N = N \ 10 
WEND 
END 

CLS 
INPUT “ENTER ANY THREE NUMBERS”; A, B, C 
IF A > B AND A > C THEN 
PRINT A; “IS GREATEST” 
ELSEIF B > A AND B > C THEN 
PRINT B; “IS GREATEST” 
ELSE 
PRINT C; “IS GREATEST” 
END IF 
END 

CLS 
INPUT "ENTER ANY STRING"; S$ 
VC = 0 
CC = 0 
WC = 1 
SC = 0 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
C$ = UCASE$(B$) 
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$ = "O" OR C$ = "U" THEN 
VC = VC + 1 
ELSEIF B$ = " " THEN 
WC = WC + 1 
ELSEIF B$ = "." THEN 
SC = SC + 1 
ELSE 
CC = CC + 1 
END IF 
NEXT I 
PRINT "TOTAL NO. OF VOWELS= "; VC 
PRINT "TOTAL NO. OF CONSONANTS="; CC 
PRINT "TOTAL NO. OF WORDS="; WC 
END 

DATA 9,6,93,25 
FOR P = 1 TO 4 STEP 1 
    READ w 
    sum = sum + w 
NEXT P 
PRINT sum 
END 

CLS 
A = 2 
B = 2 
FOR I = 1 TO 13 
PRINT A; 
C = A + B 
A = B 
B = C 
NEXT I 
END 

CLS 
FOR I = 9 TO 1 STEP -2 
FOR J = 1 TO I STEP 2 
PRINT J; 
NEXT J 
PRINT 
NEXT I 
END 

CLS 
A = 30 
FOR I = 1 TO 9 
PRINT A, 
A = A – 1.5 
NEXT I 
END 


CLS 
N = 1 
CNT = 1 
TOP: 
A = N 
S = 0 
WHILE A <> 0 
R = A MOD 10 
S = S + R ^ 3 
A = A \ 10 
WEND 
IF N = S THEN 
PRINT N, 
CNT = CNT + 1 
END IF 
N = N + 1 
IF CNT <= 5 THEN GOTO TOP 
END 
 

CLS 
INPUT "ENTER ANY STRING"; S$ 
A$ = LEFT$(S$, 1) 
B = ASC(A$) 
IF B > 48 AND B < 57 THEN 
CK$ = "FIRST CHARACTER IS A NUMBER" 
ELSEIF B > 65 AND B < 90 THEN 
CK$ = "FIRST CHARACTER IS UPPERCASE" 
ELSE IF  B > 97 AND B < 122 THEN 
CK$ = "FIRST CHARACTER IS LOWERCASE" 
ELSE 
CK$=”FIRST CHARACTER IS NEITHER NUMBER, UPPERCASE OR LOWERCASE” 
END IF 
PRINT CK$ 
END 


CLS 
INPUT "ENTER ANY STRING"; S$ 
RC = 0 
SC = 0 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
C$ = UCASE$(B$) 
IF C$ = "R" THEN RC = RC + 1 
IF C$ = "S" THEN SC = SC + 1 
NEXT I 
PRINT "TOTAL NO. OF R= "; RC 
PRINT "TOTAL NO. OF S= "; SC 
END 

CLS 
A# = 123456789 
FOR I = 1 TO 5 
PRINT A# 
A# = A# \ 100 
NEXT I 
END

REM PROGRAM TO DISPLAY CUBE OF AN INPUT NUMBER 
CLS 
INPUT “ENTER ANY NUMBER”; N 
C = N ^ 3 
PRINT “CUBE OF NUMBER ”; C 
END 


CLS 
INPUT "ENTER ANY NUMBER"; N 
S = 0 
WHILE N <> 0 
R = N MOD 10 
S = S + R 
N = N \ 10 
WEND 
PRINT "SUM OF DIGITS"; S 
END 

CLS 
INPUT “ENTER ANY NUMBER”; N 
IF N MOD 3 = 0 AND N MOD 7 = 0 THEN 
PRINT N; IS COMPLETELY DIVISIBLE BY 3 AND 7” 
ELSE 
PRINT N; IS NOT COMPLETELY DIVISIBLE BY 3 AND 7” 
END IF 
END 

CLS 
INPUT "ENTER ANY STRING"; S$ 
SC = 0 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
IF B$ = " " THEN 
SC = SC + 1 
END IF 
NEXT I 
PRINT "TOTAL NO. OF SENTENCES= "; SC 
END 


CLS 
A = 2 
FOR I = 1 TO 12 
PRINT A, 
A = A + 2 
NEXT I 
END 

CLS 
INPUT "ENTER ANY NUMBER"; N 
FOR I = 1 TO 10 
PRINT N; "X"; I; "="; N * I 
NEXT I 
END 

CLS 
A = 2 
FOR I = 1 TO 19 
PRINT A, 
A = A+ 2 
NEXT I 
END  

CLS 
FOR I = 1 TO 8 
PRINT I ^ 3, 
NEXT I 
END