Из куба заданного объема решили выточить прямой круговой конус. Основание которого лежит в одной из граней куба, наибольшего объема. Известен расход краски. Сколько краски потребуется на окраску конуса?
1 2 3 4 5 6 7 8 | INPUT "vvedite objem kuba=", vINPUT "vvedite rashod kraski na 1 kv.metr=",r a=v^(1/3)r = a / 2s1 = 3.14 * r ^ 2s2 = 3.14 * r ^2* SQR(5)s = s1 + s2PRINT "rashod kraski na konus=";s*r |