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

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

CLS 
DIM N(20) 
FOR I = 1 TO 20 
INPUT "ENTER THE NUMBERS"; N(I) 
NEXT I 
S = N(1) 
FOR I = 2 TO 20 
IF N(I)  < S THEN S = N(I) 
NEXT I 
PRINT “THE SMALLEST NUMBER IS”; S 
END 

REM SOLVE A QUADRATIC EQUATION 
CLS 
INPUT "ENTER VALUE FOR A"; A 
INPUT "ENTER VALUE FOR B"; B 
INPUT "ENTER VALUE FOR C"; C 
D = (B * B - 4 * A * C) ^ (1 / 2) 
X = (-B + D) / 2 * A 
Y = (-B - D) / 2 * A 
PRINT "SOLUTION OF QUADRATIC EQUATION ARE"; X; Y 
END 

CLS 
A = -30 
FOR I = 1 TO 20 
PRINT A, 
A = A + 10 
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 
W$=W$+B$ 
END IF 
NEXT I 
PRINT W$ 
END 

CLS 
INPUT "ENTER ANY NUMBER"; N 
C = 0 
WHILE N  <> 0 
C = C + 1 
N = N \ 10 
WEND 
PRINT "TOTAL NUMBER OF DIGITS"; C 
END 


CLS 
FOR I = 2 TO 100 STEP 2 
PRINT I, 
NEXT I 
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 
END 

CLS 
FOR I = 1 TO 10 
INPUT "ENTER THE NUMBERS"; N(I) 
IF N(I) MOD 2 = 1 THEN S = S + N(I) 
NEXT I 
PRINT "SUM OF 10 ODD NUMBERS"; S 
END 

CLS 
INPUT “ENTER NEPALESE CURRENCY ” ; P 
C=P/1.6 
PRINT “INDIAN CURRENCY “; C 
END

CLS 
INPUT “ENTER  A NUMBER ” ; P 
IF P MOD 4 =0 AND P MOD 6=0 THEN 
PRINT “DIVISIBLE BY BOTH NUMBERS” 
ELSE 
PRINT “NOT DIVISIBLE BY BOTH NUMBERS” 
ENDIF 
END 

CLS 
INPUT “Enter monthly income”; I 
A=I*12 
IF A>500000 THEN 
TAX=15/100*A 
PRINT "Total amount of tax to be paid is"; TAX 
ELSE 
TAX=10/100*A 
END IF 
END