Введите три числа.Если они могут быть длинами сторон остроугольного треугольника,выведите их в порядке убывания и вычислите их площадь.
Введите три числа.Если они могут быть длинами сторон остроугольного
треугольника,выведите их в порядке убывания и вычислите их площадь.
Гость
Ответ(ы) на вопрос:
Гость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]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.
Не нашли ответ?
Похожие вопросы