lets the world smile towards your success

CLS INPUT "Enter any three number"; A, B, C IF A>B AND A>C THEN PRINT "The greates 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

CLS INPUT "Enter any number"; N S = 0 WHILE N<> 0 R = N MOD 10 S = S+R N = N\10 WEND PRINT "Sum of didits="; S END

CLS INPUT "Enter any number'; N P = 1 WHILE N<> 0 R = N MOD 10 P = P*R N = N\10 WEND PRINT "Product of digits="; P END

CLS INPUT "Enter any number"; N S = 0 WHILE N<> 0 R = N MOD 10 S = S*10+R N = N\10 WEND PRINT "Reverse of digits="; S 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 " The number is palindrome" ELSE PRINT "The number is not palindrome" END IF END

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 

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

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

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

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

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

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

CLS FOR I = 1 TO 10 PRINT I ^ 2 NEXT I  END

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

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

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