GG

Viết CT tính diện tích xung quanh và thể tích hình hộp chữ nhật (các kích thước được nhập vào từ bàn phím)

KL
15 tháng 5 2023 lúc 7:52

Var sxq,v,d,r,c:real;

Begin

Write('Chieu dai = ');readln(d);

Write('Chieu rong = ');readln(r);

Write('Chieu cao = ');readln(c);

sxq:=2*(d+r)*c;

v:=d*r*c;

Writeln('Dien tich xung quanh la ',sxq:10:2);

Write('The tich la ',v:10:2);

Readln

End.

Bình luận (0)

Các câu hỏi tương tự
GG
Xem chi tiết
GG
Xem chi tiết
SE
Xem chi tiết
LT
Xem chi tiết
TK
Xem chi tiết
TC
Xem chi tiết
TT
Xem chi tiết
H8
Xem chi tiết
ND
Xem chi tiết