RosettaCodeData/Task/A+B/BASIC/a+b-9.basic

4 lines
102 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
INPUT n$
PRINT VAL(LEFT$(n$,(LEN(STR$(VAL(n$))))))+VAL(RIGHT$(n$,(LEN(n$)-LEN(STR$(VAL(n$)))-1)))
END