Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Даны два неотрицательных числа a и b . найти их среднее геометрическое т.е. квадрат. Корень из их произведения (ab)в квадрате

Ответ оставил Гость

Var a,b,sg:real;
Begin
writeln(Введите два неотрицательных числа a и b);
readln(a,b);
sg:=(sqrt(sqr(a*b)));
writeln(Среднее геометрическое чисел a и b ,sg);
end.