Введите три числа.Если они могут быть длинами сторон остроугольного
10-11 класс
|
треугольника,выведите их в порядке убывания и вычислите их площадь.
a, b, c, i,z, j, p:integer;
d:array[1..10] of integer
begin
readln(a, b, c);
d[1]:=a; d[2]:=b; d[3]:=c;
for i:=1 to 3 do
for j:=1 to 3 do
if d[i]<d[j] then begin
z:=d[i]; d[i]:=d[j]; d[j]:=z;
if ((a+b)>c) and ((a+c)>b) and ((c+b)>a) then begin
p:=(a+b+c) div 2;
p:=p*(p-a)*(p-b)*(p-c);
p:=sqrt(p);
p:=(2*p) div a;
for i:=1 to n do
writeln(d[i]);
end;
writeln(p);
readln;
end.
Другие вопросы из категории
,который будет содержать противоположные значения элементов первого массива
Читайте также
Ребят,подскажите пожалуйста как проверить могут ли быть стороны длинами равнобедренного остроугольного треуг. Не могу понять ,как проверить именно на остроугольный треугольник ,в геометрии 0. Помогите пожалуйста
соответствующее сообщение.
Решите разветляющим алгоритмом
a,b,c:integer;
begin
writeln('введите три числа: ');
readln(a,b,c)
а дальше не знаю помогите пожалуйста!!!!)
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.