напишите программу среднее геометрическое всех чисел на отрезке (a b)

Напишите программу среднее геометрическое всех чисел на отрезке (a b)

Задать свой вопрос
1 ответ
//PascalABC.Net 3.2
begin
var prod:=1;
var a:=readinteger('a ='); var b:=readinteger('b =');
for var i:=a to  b do prod*=i;
write ('Ср. геометрическое: ', prod/(b-a))
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт