education is the light of life

1, 1, 2, 3, 5,……..up to 10 th  term CLS A = 1 B = 1 FOR I = 1 TO 10 PRINT A C = A +  B A = B B = C NEXT I END

Multiplication table CLS INPUT "Enter any number"; N FOR I = 1 TO 10 PRINT N ; "X' ; I ; "=" ; N*I NEXT I END

Factorial CLS INPUT "Enter any number"; N F = 1 FOR I = 1 TO N F = F*I NEXT I PRINT "Factorial="; F END

Factor CLS INPUT "Enter any number"; N FOR I = 1 TO N IF N MOD I = 0 THEN PRINT I NEXT I END

The given number is prime or composite 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 "The number is prime" ELSE PRINT "The number is composite" END IF END

The greatest among three number CLS INPUT "Enter any three number"; A, B, C IF A>B AND A>C THEN PRINT "The greatest number is"; A ELSEIF B>A AND B>C THEN PRINT "The greatest number is"; B ELSE PRINT "The greatest number is"; C END IF END

The given number is armstrong or not CLS INPUT 'Enter any number'; N A = N S = 0 WHILE N <> 0 R = N MOD 10 S = S+R^3 N = N\10 WEND IF A=S THEN PRINT "The number is armstrong" ELSE PRINT "The number is not armstrong" END IF END