Введите три числа. Если они могут быть длинами сторон остроугольного

треугольника, выведите их в порядке убывания и вычислите их площадь.

Question

Информатика

Филипка

3 марта, 01:42

Введите три числа. Если они могут быть длинами сторон остроугольного

треугольника, выведите их в порядке убывания и вычислите их площадь.

+3

Ответы (1)

Знаете ответ на вопрос?

Петрай · Answer 1

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]
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.

Введите три числа. Если они могут быть длинами сторон остроугольноготреугольника, выведите их в порядке убывания и вычислите их площадь.

Введите три числа. Если они могут быть длинами сторон остроугольного

треугольника, выведите их в порядке убывания и вычислите их площадь.