Написать программу которая запросит длинны трёх сторон треугольника. Проверить...

Question

Написать программу которая запросит длинны трёх сторон треугольника. Проверить возможность его сущ. и в предположенном результате найдёт и выведет на экран площадь один. Ребята!!!! Спасайте кто может!!!!!

Comments

Напишите со знаками препинания и правильными склонениями. Второе предложение абсолютно не понять.

---

Кхе-кхе, вам нужно решение или нет? Объясните, что вы имели в виду вот втором предложении.

---

проверить возможность его существования

---

А дальше?

---

ЧТО ЗНАЧИТ - и в предположенном результате найдёт и выведет на экран площадь один?11!1

---

это так учитель продитовал

---

Ладно. Вот начало, остальные условия не поддаются расшифровки. Покажи хотя бы это, скажи что не поняла условия

---

var a,b,c,d:integer;beginwriteln(d);readln(a,b,c);

---

Скажи, что попыталась

---

хорошо, спасибо те бо е за это!)

Answer 1

Var  
a,b,c{длины сторон}, S{площадь тр.}, p{полупериметр}:double;
begin
writeln('Введите стороны треугольника:');
readln(a,b,c);
     if (a>=b+c) or (b>=a+c) or (c>=a+b) then     
     writeln ('Такого треугольника не существует')     
     else begin   
     p:=(a+b+c)/2;     
     S:=sqrt(p*(p-a)*(p-b)*(p-c)); {вычисляем S тр. по формуле Герона}     
     writeln ('Такой треугольник существует, его S = ', S, 'ед.');     
     end;     
end.

Comments

Сайт программу записал в строку... Если она тебе еще нужна, то удали комментарии из программы и разбей ее на столбцы.