Задание:
Помогите пожалуйста! Даны 2 вещественных числа. Найти сумму их квадратов, разность кубов и произведения корней
Решение:
Var a, b, sum, raz, prod: real; begin read (a, b); sum: =sqr (a)+sqr (b); raz: =a*sqr (a) — sqr (b)*b; prod: =sqrt (a)*sqrt (b); write (sum, ', raz, ', prod); end.
Знаете другой ответ?