ПОМОГИТЕ, ПОЖАЛУЙСТА СРОЧНО НАДО НАЙТИ СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ 2-Х ЧИСЕЛ В...

Question

ПОМОГИТЕ, ПОЖАЛУЙСТА
СРОЧНО
НАДО НАЙТИ СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ 2-Х ЧИСЕЛ В ПРОГРАММЕ,,ПАСКАЛЬ,,
2, 32
2*32=64
Корень 64=8

---

Answer 1

Program...;
var a, b, c, g:real;
begin
readln (a,b);
a*b=c;
sqrt(c)sq=g
writeln ('среднее геометрическое=', g);
readln;
end.
Не уверена, что будет правильно

Answer 2

Var a,b:real;beginreadln (a,b);writeln ('среднее геометрическое = ',sqrt(a*b));readln; end.

Comments

var a,b:real;
begin
readln (a,b);
writeln ('среднее геометрическое = ',sqrt(a*b));
readln;
end.