A+B: Difference between revisions
Content added Content deleted
(Added Oz.) |
(added BASIC) |
||
| Line 48: | Line 48: | ||
{print $1 + $2} |
{print $1 + $2} |
||
</lang> |
</lang> |
||
=={{header|BASIC}}== |
|||
<lang qbasic>DEFINT A-Z |
|||
tryagain: |
|||
backhere = CSRLIN |
|||
INPUT "", i$ |
|||
i$ = LTRIM$(RTRIM$(i$)) |
|||
where = INSTR(i$, " ") |
|||
IF where THEN |
|||
a = VAL(LEFT$(i$, where - 1)) |
|||
b = VAL(MID$(i$, where + 1)) |
|||
c = a + b |
|||
LOCATE backhere, LEN(i$) + 1 |
|||
PRINT c |
|||
ELSE |
|||
GOTO tryagain |
|||
END IF</lang> |
|||
=={{header|C}}== |
=={{header|C}}== |
||