Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (28.37 KB, 1 trang )
Program Example3;
uses Crt;
var
a,b,c,P,S :real;
begin
write('Nhap vao 3 canh : '); readln(a,b,c);
If (abegin
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('3 canh ban vua nhap la 3 canh cua 1 tam giac.');
writeln('chu vi cua tam giac la : ',P*2:4:2,' cm');
writeln('dien tich cua tam giac la : ',S:4:2,' cm');
end
else
writeln('3 canh vua nhap khong la 3 canh cua tam giac');
readln
end.