Найти среднее геометрическое чисел от a до b - QBasic

Формулировка задачи:

Найти среднее геометрическое чисел от a до b.

Код к задаче: «Найти среднее геометрическое чисел от a до b - QBasic»

textual
input "vvedite a ",a
input "vvedite b ",b
p=1
for i=a to b
p=p*i
k=k+1
next
sred=p^(1/k)
print"sred=";sred

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ