câu 1: viết chương trình pascal tính chu vi và diện tích của 1 tam giác ( cạnh a, b, c) câu 2: nêu các bước tính (a+b)*c+ val f
mn giúp mk vs, mk cần gấp ạ
Uses crt; Var a,b,c,p,s: extended; Begin Clrscr; Write('Nhap do dai 3 canh cua tam giac: '); Readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); Write('Chu vi tam giac la: ',p*2:10:2); Writeln; Write('Dien tich tam giac la: ',s:10:2); Readln End.