WAP to input a number and find the addition of its odd factors in q ba

1.	WAP to input a number and find the addition of its odd factors in q basic.
Answer» 131. WAP to input any NUMBER and display the factors.CLSINPUT "ENTER ANY NUMBER"; NPRINT "FACTORS OF"; N; "=";FOR I = 1 TO NIF N MOD I = 0 THEN PRINT I;NEXT IENDUSING SUB PROCEDUREDECLARE SUB FACT (N)CLSINPUT "ENTER ANY NUMBER"; NCALL FACT (N)ENDSUB FACT (N)PRINT "FACTORS OF"; N; "=";FOR I = 1 TO NIF N MOD I = 0 THEN PRINT I;NEXT IEND SUB132. WAP to input any number and display the PRIME factors.CLSINPUT "ENTER ANY NUMBER"; NPRINT "PRIME FACTORS OF"; N; "=";FOR I = 1 TO NC = 0FOR J = 1 TO IIF I MOD J = 0 THEN C = C + 1NEXT JIF N MOD I = 0 AND C = 2 THEN PRINT I;NEXT IENDUSING SUB PROCEDUREDECLARE SUB FACT (N)CLSINPUT "ENTER ANY NUMBER"; NCALL FACT (N)END

Discussion