Question

Помогите пожалуйста решить срочно!
Даны значения переменных а и b, найти сумму и произведение их корней, частное и разность их квадратов. ​

Answer 1

===== PascalABC.NET =====

begin

 var (a, b) := ReadReal2;

 var (x, y) := (Sqrt(a), Sqrt(b));

 Println('Сумма и произведение корней:', x + y, x * y);

 (x, y) := (a*a, b*b);

 Print('Частное и разность квадратов:', x/y, x - y)

end.