Tin học chương trình tính chu vi,diện tích của tam giác

azura.

Học sinh chăm học
Thành viên
29 Tháng ba 2020
298
308
76
Ninh Bình
THCS Ninh Giang
const fi='bai1.inp';
fo='bai1.out';
var a,b,c:real ;
procedure tinh (var a,b,c,P,S :real);
begin
P:=a+b+c;
S:= sqrt (P*(P-a)*(P-b)*(P-c)) ;
end;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
read (a,b,c);
tinh;
write (P,' ',S);
end.
lâu rồi chưa viết CT nên sai chỗ nào cậu xem lại nha
 
Top Bottom