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. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
Для решения определим 1. Время передачи по высокоскоростному каналу 2. Время передачи по низкоскоростному каналу 3. Время для получения первых 1024 Кб 4. Всё сложим.
