Введите три числа.Если они могут быть длинами сторон остроугольного
треугольника,выведите их в порядке убывания и вычислите их площадь.
Ответы
Ответ дал:
0
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.
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
Есть ошибки. Программа не работает.
Ответ дал:
0
а да, простите. там должно стоять два end; и могут возникнуть проблемы с sqrt-некоторые версии pascal эту функцию не выполняют.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад