Написать программу в паскале,использующую функцию,которая возвращает значение выражения. y=a^2-5b^3+корень из(4a+b)
var a, b: real; //Числа а и b function CalculateY(a, b: real): real; //Функция вычисления y begin CalculateY:= sqr(a) - 5 * (sqr(b) * b) + sqrt(4 * a + b); end; begin writeln('Введите числа а и b'); readln(a, b); //Вводим числа а и b writeln(CalculateY(a, b)); //Печатаем возвращаемое функцией значение end.
