Даны сумма и разность двух целых чисел. Нужно найти эти числа. НА PascalABC

Сначала решим эту задачу математически.

Пусть даны сумма двух чисел a и их разность b, сами числа x и y неизвестны

составим систему:

x+y=a

x-y=b

решим ее относительно a и b

x=a-y

a-y-y=b

a-2y=b

2y=a-b

y = (a-b) / 2

x=a - (a-b) / 2 = (2a-a+b) / 2 = (a+b) / 2

теперь составляем программу:

Program n1;

var a, b: integer;

begin

write ('Введите сумму 2 целых чисел: ') ;

readln (a) ;

write ('Введите разность 2 целых чисел: ') ;

readln (b) ;

writeln ('1 число: ', (a+b) / 2) ;

write ('2 число: ', (a-b) / 2) ;

end.