Question

Se consideră 3 numere reale a,b,c.Să se scrie un program care va determina perimetrul și aria triunghilui,laturile cărui sunt respectiv egale cu a,b,c
după Program Uses crt
după begin clrscr
înainte de end readkey

Trebuie rezolvat în Pascal...ofer 25 de puncte

Answer 1

program triunghi;
Uses crt;
var a,b,c,perimetrul,aria: Integer;
begin
  clrscr;
  Write("a= ");ReadLn(a);
  Write("b= ");ReadLn(b);
  Write("c= ");ReadLn(c);
  perimetrul:=a+b+c;
  WriteLn("Perimetrul = ",perimetrul);
  perimetrul:=perimetrul/2;
  aria=sqrt(perimetrul*(perimetrul-a)*(perimetrul-b)*(perimetrul-c));
  WriteLn("Aria= ",aria);
  Readkey;
end.