Question

Найти площадь треугольника с помощью Pascal.

Answer 1

program Trykutnyk;
uses Crt;
const a=5; b=3.6; c=4.2;
var p,s: real;
begin
          clrscr;
          p:=a+b+c;
          writeln('p=',  p:5:2);
          p:=p/2;
          s"=sqrt(p*(p-a)*(p-b)*(p-c));
          writeln('s=',  s:5:2);
          writeln('Имя Фамилия');
          readln
end.