A,b,c - стороны прямоугольного треугольника; d - радиус описанной окружности около прям. треуг. e - длинна окружности описанной около прямоуг. треугольника;
var a,b,c,d,e:Real; begin writeln ('Введите (через пробел) 2 катета прямоугольного треугольника: '); readln (a,b); //вводим 2 катета c:=SQRT((a*a)+(b*b)); //находим 3 сторону (гипотенузу) d:=0.5*c; //радиус описанной окружности около прям. треуг e:=2*3.14*d; //теперь находим длину окружности описанной около прям. треуг. writeln ('Длина окружности описанной около прямоугольного треугольника = ',e); end.
P.S. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
Насчет заморозить пару бутылок - мысль интересная, но главное - не пропустить эффектный момент, когда их разорвет в морозилке! Под вентилятором в жару можно заработать простуду. А вот понижение температуры за счет поглощения тепла в процессе испарения влаги - совершенно верно. Здесь хороши все варианты: фонтан, мыть полы и не вытирать (в старину их просто мочили или поливали водой), развешивать мокрую ткань, принимать прохладный (холодный, если здоровье позволяет) душ или просто налить ванну холодной воды и оставить открытую дверь
grades = [5.9, 5.85, 6.0,5.95, 6.1, 5.9]
a = round(sum(grades)/len(grades))
print(f'Средний : {a}')