Question

write a program in QBasic to input a number and print if it is a prime number or not

Answer 1

Here's your answer:

CLS
INPUT "ENTER ANY NUMBER"; NC = 0FOR I = 1 TO NIF N MOD I = 0 THEN C = C + 1NEXT IIF C = 2 THENPRINT N; "IS PRIME NUMBER"ELSEPRINT N; "IS NOT A PRIME NUMBER"END IFEND

:)

Answer 2

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 COMPOSITE NUMBER"

END IF

END

USING SUB PROCEDURE

DECLARE SUB PRIME (N)

INPUT "ENTER ANY NUMBER"; N

CALL PRIME (N)

END

SUB PRIME (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 COMPOSITE NUMBER"

END IF

END SUB

USING FUNCTION PROCEDURE

DECLARE FUNCTION PRIME(N)

CLS

INPUT "ENTER ANY NUMBER"; N

P = PRIME (N)

IF P = 2 THEN

PRINT N; "IS PRIME NUMBER"

ELSE

PRINT N; "IS COMPOSITE NUMBER"

END IF

END

FUNCTION PRIME (N)

C = 0

FOR I = 1 TO N

IF N MOD I = 0 THEN C = C + 1

NEXT I

PRIME = C

END FUNCTION



I hope help you
mark brainliest