вычислите дробную часть среднего геометрического трех заданных вещественных чисел.
программа в бейсике.

Microsoft qBASIC:DIM n AS DOUBLE, p AS DOUBLE, k AS INTEGERCLSk = 0p = 1DO   INPUT "Vvedite chislo ili 0 dlya kontsa vvoda: ", n   IF n <> 0 THEN      p = p * n      k = k + 1   END IFLOOP UNTIL n = 0p = EXP(LOG(p) / k)PRINT "Srednee geometricheskoe = "; pENDТестовое решение:Vvedite chislo ili 0 dlya kontsa vvoda: 3.2Vvedite chislo ili 0 dlya kontsa vvoda: 11.7Vvedite chislo ili 0 dlya kontsa vvoda: 8.4Vvedite chislo ili 0 dlya kontsa vvoda: 0Srednee geometricheskoe =  6.800461329716477