Quảng cáo
3 câu trả lời 411
3 năm trước
uses crt;
var a,b,c:longint; p:real;
begin
clrscr;
write(‘a,b,c: ‘);readln(a,b,c);
p:=(a+b+c)/2;
writeln(‘Chu vi: ‘,p*2:0:2);
writeln(‘Dien tich: ‘,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
readln;
end.
Tường Vy
· 3 năm trước
Vy cám ơn người đẹp rất nhiều ạ 🙆♀️
3 năm trước
Hơi trễ, đây nha bạn
uses crt;
var a,b,c:longint; p:real;
begin
clrscr;
write(‘a,b,c: ‘);readln(a,b,c);
p:=(a+b+c)/2;
writeln(‘Chu vi: ‘,p*2:0:2);
writeln(‘Dien tich: ‘,sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!
