Из куба заданного объема(в м3)решили выточить прямой круговой конус.основание которого лежит в одной из граней куба,наибольшего объема.Известен расход краски в 1 м2.Сколько краски потребуется на окраску конуса — QBasic(Бейсик)

INPUT "vvedite objem kuba=", v
INPUT "vvedite rashod kraski na 1 kv.metr=",r 
a=v^(1/3)
r = a / 2
s1 = 3.14 * r ^ 2
s2 = 3.14 * r ^2* SQR(5)
s = s1 + s2
PRINT "rashod kraski na konus=";s*r

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment