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

CLS 
INPUT "ENTER ANY NUMBER"; N 
C = 0 
FOR I = 1 TO N 
IF N MOD I = 0 THEN C = C + 1 
NEXT I 
IF C = 2 THEN 
PRINT N; "IS PRIME NUMBER" 
ELSE 
PRINT N; "IS NOT PRIME NUMBER" 
END IF 
END 

CLS 
a = 1 
FOR i = 1 TO 10 
    PRINT a 
    a = a * 2 
NEXT i 
END 

CLS 
INPUT "ENTER DECIMAL NUMBER"; D 
WHILE D <> 0 
R = D MOD 2 
S$ = STR$(R) + S$ 
D = D \ 2 
WEND 
PRINT "BINARY EQUIVALENT VALUE="; S$ 
END 

CLS 
A = 50 
B = 4 
FOR I = 1 TO 7 
PRINT A 
A = A - B 
B = B + 1 
NEXT I 
END 

CLS 
A = 1 
FOR I = 1 TO 12 
PRINT A; 
A = A + 3 
NEXT I 
END 

CLS 
N = 1 
FOR I = 1 TO 200 
A = N 
S = 0 
WHILE A  <> 0 
R = A MOD 10 
S = S * 10 + R 
A = A \ 10 
WEND 
IF N = S THEN PRINT N, 
N = N + 1 
NEXT I 
END

CLS   
FOR I = 1 TO 100 
PRINT I, 
NEXT I 
END 

CLS 
INPUT "ENTER ANY STRING"; S$ 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
C$ = UCASE$(B$) 
IF C$  <> "A" AND C$  <> "E" AND C$ <> "I" AND C$ <> "O" 
AND C$ <> "U" AND C$  <> " " AND C$  <> "." THEN 
PRINT B$ 
END IF 
NEXT I 
END 

CLS 
INPUT "ENTER ANY STRING"; S$ 
FOR I = 1 TO LEN(S$) 
B$ = MID$(S$, I, 1) 
C$ = UCASE$(B$) 
IF C$  <> "A" AND C$  <> "E" AND C$ <> "I" AND C$ <> "O" 
AND C$ <> "U" AND C$  <> " " AND C$  <> "." THEN 
PRINT B$ 
END IF 
NEXT I 
END 

CLS 
A = 1 
B = 2 
FOR I = 1 TO 15 
PRINT A; "/"; B 
A = A + 1 
B = B + 1 
NEXT I 
END 

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

CLS 
INPUT "ENTER ANY NUMBER"; N 
PRINT "FACTORS OF"; N; "="; 
FOR I = 1 TO N 
IF N MOD I = 0 THEN PRINT I; 
NEXT I 
END 

CLS 
INPUT "ENTER ANY WORD"; S$ 
VC = 0 
CC = 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 
ELSE 
CC = CC + 1 
END IF 
NEXT I 
PRINT "TOTAL NO. OF VOWELS= "; VC 
PRINT "TOTAL NO. OF CONSONANTS="; CC 
END 

CLS 
INPUT “ENTER THREE ANGLES OF A TRIANGLE”; A,B,C 
IF A = 90 OR B = 90 OR C = 90 THEN 
PRINT “IT IS A RIGHT ANGLED TRIANGLE” 
ELSE 
PRINT “IT IS NOT A RIGHT ANGLED TRIANGLE” 
END IF 
END 


CLS 
A = 3 
FOR I = 1 TO 15 
PRINT A 
A = A * 2 
NEXT I 
END 

CLS 
A = 1 
FOR I = 1 TO 10 
PRINT A, 
A = A * 5 
NEXT I 
END 

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

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 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 NUMBER"; N 
PRINT "SQUARE OF ODD DIGITS ARE "; 
WHILE N  <> 0 
R = N MOD 10 
IF R MOD 2 = 1 THEN PRINT R ^ 2; 
N = N \ 10 
WEND 
END