В Паскаль. Составте программу с диалогом для нахождения площади треугольника по теореме Герона.
s= кв. корень p (p-a) (p-b) (p-c)
p - полупериметр.
a,b,c- стороны.
Помогите пожалуйста!
program ndj;
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
p:=(a+b+c)/2; высчитывает полупериметр
s:=sqrt(p*(p-a)*(p-b)*(p-c)); высчитывает площадь
writeln(s);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
