Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 10 INPUT "Enter number",A
- 20 IF A<>1 THEN 30 ELSE 110
- 30 IF A MOD 2=0 THEN 40 ELSE 70
- 35 WHILE B<=1
- 40 B=A/2
- 50 PRINT B
- 60 WEND
- 65 GOTO 110
- 70 WHILE C=1
- 80 C=(A*3)+1
- 90 PRINT C
- 100 WEND
- 110 INPUT "Do you want to enter again........y/n ";A$
- 120 IF A$="Y" OR A$="y" THEN 10 ELSE 130
- 130 PRINT"Thanks for using..." :END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement