Помогите пожалуйста!!!Это нужно сделать ** языке Паскаля...Срочно нужно,я не понимаю как...

Question

Помогите пожалуйста!!!Это нужно сделать на языке Паскаля...Срочно нужно,я не понимаю как это делать

---

Comments

Всем спасибо за решения!

Answer 1

Вычисление площади по формуле Герона:

Var a,b,c,p,S:real;
Begin
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('c = ');ReadLn(c);
if (a   Begin
   p:=(a+b+c)/2;
   S:=Sqrt(p*(p-a)*(p-b)*(p-c));
   WriteLn('S = ',S);
   End
else WriteLn('Треугольник abc не существует');
End.



Примеры работы программы:

a = 3
b = 4
c = 5
S = 6

a = 1
b = 2
c = 3
Треугольник abc не существует

Answer 2

Program plowad;
var p,a,b,c,s:real;
begin
writeln('Введите сторону "a"');readln(a);
writeln('Введите сторону "b" ');readln(b);
writeln('Введите сторону "c" ');readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.

Comments

Как это можно в тетрадь записать?

---

Обновите страницу

---

Так и пиши,как здесь,только не забудь точку с запятой в конце,на каждой строчке

---

Хорошо.