13 lines
545 B
Plaintext
13 lines
545 B
Plaintext
INPUT "Enter first number.":first
|
|
INPUT "Enter second number.":second
|
|
PRINT "The sum of";first;"and";second;"is ";first+second&"."
|
|
PRINT "The difference between";first;"and";second;"is ";ABS(first-second)&"."
|
|
PRINT "The product of";first;"and";second;"is ";first*second&"."
|
|
IF second THEN
|
|
PRINT "The integer quotient of";first;"and";second;"is ";INTEG(first/second)&"."
|
|
ELSE
|
|
PRINT "Division by zero not cool."
|
|
ENDIF
|
|
PRINT "The remainder being...";first%second&"."
|
|
PRINT STR$(first);"raised to the power of";second;"is ";first^second&"."
|