Program Begin9;
Var
a, b: Real;
Begin
ReadLn(a, b);
WriteLn('Sqrt(a*b) = ', Sqrt(a * b):6:3);
ReadLn;
End.
Похожие записи/страницы:
- Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их…
- Даны 3 числа ,нужно сложить их корни ,и найти наименьшее из этих корней - Pascal(Паскаль)
- Дано натуральное число n. Используя методику решения задач с рекуррентными последовательностями, вычислить…
- В одномерном массиве вычислить корень квадратный от произведения отрицательных элементов - Pascal(Паскаль)
- Для заданного числа а вычислить значение суммы 2*а/sqrt(5)+2*а/sqrt(15)+2*а/sqrt(25)+....+2*а/sqrt(75) - Pascal(Паскаль)
- Найти корни биквадратного уравнения ax^4+bx^2+c=0, использовать подпрограмму для поиска корней квадратного…
- Написать программу,которая решает биквадратное уравнения sqr(ax)*sqr(ax)+b*sqrx+c=0- Pascal(Паскаль)
- Составить табуляцию функции y=sin(2.5x)+sqrt(sin(2.5))/sqrt(sin(x))- Pascal(Паскаль)