Вычислить сумму и разность двух целых чисел, вводимых пользователем с клавиатуры.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 | program line_1; uses crt; var a, b: integer; begin clrscr; write(‘a=’); read(a); write(‘b=’); readln(b); writeln(a,‘-‘,b, ‘=’, a–b); write(a,‘+’,b, ‘=’, a+b); readkey; end. |
