👤
VictoriaK
a fost răspuns

URGENT!!!!!
Fie date laturile a,b,c a unui triunghi.Scrieti un program care va determina aria si perimetrul triunghiului dat.

Răspuns :

Ionutg38
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.