Вычислить сумму и разность двух целых чисел, вводимых пользователем с клавиатуры.
Решение:
|
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. |