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. то что после // - это комментарий (в паскале он будет выделен другим цветом), это для того что бы было понятно, что сейчас делаем, если комментарии не нужны - их можно удалить, на правильность работы программы это никак не повлияет
Program Program1; var i, n: integer; var result1, result2, sum: real; var array1: array [0..1000] of real; begin randomize; result1 := 0; sum := 0; write('Введите значение N (не менее 0 и не более 255): '); readln(n); for i := 1 to n do begin array1[i] := random(1000) - random(1000); end; begin writeln('Массив размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i := 1 to n do begin if array1[i] > 0 then result1 := result1 +1; end; for i:=1 to n do sum := sum + array1[i]; result2 := sum / n; writeln('Количество положительных элементов массива = ', result1); writeln('Среднее арифметическое = ', result2); end.
