s := (a * a) / 2; h := a / sqrt(2); r1 := a / (2 + sqrt(2)); r2 := a / sqrt(2); Writeln ("Сторона треугольника a = ",a:6:3," см;"); Writeln ("Площадь треугольника s = ",s:6:3," см2;"); Writeln ("Высота треугольника h = ",h:6:3," см;"); Writeln ("Радиус вписанной окружности r = ",r1:6:3," см;"); Writeln ("Радиус описанной окружности R = ",r2:6:3," см."); END. Надеюсь разберешься
Ссылка на пост
ts 28 апр 2008 в 18:09
Пожалуста памагите. Это у меня вапрос жизни и смерти. задача такая. пусть элементами прямоугольного равнобедренного треугольника; сторона а, площадь s, высота h, радиус вписанной окружнсти r, радиус описанной окруности R. составить программу которая по заданному номеру и значению соответствующего элемента вычисляла бы значения остальных элементов. очень сильно прошу помогите.надо к зафтрашнему дню. пожалуста. заранее благодарен.