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

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

Задать свой вопрос
2 ответа
Var a,b:real;beginreadln (a,b);writeln ('среднее геометрическое = ',sqrt(a*b));readln; end.
Дмитрий Шамоньянц
var a,b:real;beginreadln (a,b);writeln ('среднее геометрическое = ',sqrt(a*b));readln; end.
Program...;
var a, b, c, g:real;
begin
readln (a,b);
a*b=c;
sqrt(c)sq=g
writeln ('среднее геометрическое=', g);
readln;
end.
Не уверена, что будет правильно
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт