Question

Программа по нахождению площади треугольника по формуле Герона: S = √ p (p-a) (p-b) (p-c) p = a + b + c / 2 на C

Answer 1

Uses crt;
var
a,b,c:byte;
s,p:integer;
begin
clrscr;
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)(p-b)(p-c);
writeln(' площадь треугольника = ',s);

readln;
end.

p.s: писала без паскаля, ошибки не проверила)) но должно правильно решить:)

Answer 2

Program asd;
USES crt;
var S,a,b,c,p:real;
BEGIN
Clrscr;
Writeln('Введите сторону  à: '); 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:= ',s:2:2);
END.