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

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

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

CLS 
    FOR I = 1 TO 100 STEP 2 
    S = S + I 
    NEXT I 
    PRINT “SUM OF ALL ODD NUMBERS FROM 1 TO 100=”; S 
    END  

CLS 
    A# = 2 
    FOR I = 1 TO 13 
    PRINT A#; 
    A# = A# * 10 + 2 
    NEXT I 
    END  

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

CLS 
    DIM N(10) AS STRING 
    FOR I = 1 TO 10 
    INPUT "ENTER THE STRINGS"; N(I) 
    NEXT I 
    FOR I = 1 TO 10 
    FOR J = 1 TO 10 - I 
    IF N(J) > N(J + 1) THEN SWAP N(J), N(J + 1) 
    NEXT J 
    NEXT I 
    PRINT "STRINGS ARRANGED IN ASCENDING ORDER" 
    FOR I = 1 TO 10 
    PRINT N(I) 
    NEXT I 
    END 

CLS 
    INPUT “ENTER FIRST NUMBER”; A 
    INPUT “ENTER SECOND NUMBER”; B 
    S = A ^ 2 + B ^ 2 
    PRINT “SUM OF SQUARE OF TWO NUMBERS ”; S 
    END 


REM PROGRAM TO DISPLAY print all even number from 2 to 100

    CLS 
    FOR I = 2 TO 100 STEP 2 
    PRINT I, 
    S = S + I 
    NEXT I 
    PRINT “SUM OF ALL EVEN NUMBERS FROM 1 TO 100=”; S 
    END  

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

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

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

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

    CLS 
    INPUT "ENTER FIRST STRING"; A$ 
    FOR I = 2 TO 10 
    INPUT "ENTER NEXT STRING"; B$ 
    IF LEN(B$) > LEN(A$) THEN A$ = B$ 
    NEXT I 
    PRINT "LONGEST STRING="; A$ 
    END 


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


    CLS 
    INPUT "ENTER ANY NUMBER"; N 
    F = 1 
    FOR I = 1 TO N 
    C = 0 
    FOR J = 1 TO I 
    IF I MOD J = 0 THEN C = C + 1 
    NEXT J 
    IF C = 2 THEN F = F * I 
    NEXT I 
    PRINT "PRIME FACTORIAL ="; F 
    END


    CLS 
    INPUT "ENTER FIRST NUMBER"; N 
    FOR I = 2 TO 10 
    INPUT "ENTER NEXT NUMBER"; S 
    IF S <  N THEN N = S 
    NEXT I 
    PRINT “THE SMALLEST NUMBER IS “; N 
    END 


    CLS 
    INPUT "ENTER ANY NUMBER"; N 
    A = N 
    S = 0 
    WHILE N < > 0 
    R = N MOD 10 
    S = S * 10 + R 
    N = N \ 10 
    WEND 
    IF A = S THEN 
    PRINT A; "IS PALINDROME" 
    ELSE 
    PRINT A; "IS NOT PALINDROME" 
    END IF 
    END 

<!-- wp:code {"canvasClassName":"cnvs-block-core-code-1606732332679"} -->
<pre class="wp-block-code"><code class="">    CLS 
    INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C 
    IF (A + B) > C AND (B + C) > A AND (A + C) > B THEN 
    PRINT “THE TRIANGLE CAN BE FORMED” 
    ELSE 
    PRINT “THE TRIANGLE CANNOT  BE FORMED” 
    END IF 
    END 
</code></pre>
<!-- /wp:code -->

    CLS 
    INPUT “ENTER THREE SIDES OF A TRIANGLE”; A,B,C 
    IF A = B AND B = C THEN 
    PRINT “IT IS A EQUILATERAL TRIANGLE” 
    ELSEIF A = B OR B = C OR C = A THEN 
    PRINT “IT IS ISOSCELES TRIANGLE” 
    ELSEIF A < > B AND B < > C THEN 
    PRINT “ IT IS A SCALENE TRIANGLE” 
    END IF 
    END 

    CLS 
    A = 1 
    FOR I = 10 TO 100 STEP 10 
    PRINT I, 
    NEXT I 
    END