Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Gãy Cánh GST
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) cần gấp ạ
Kiều Vũ Linh
15 tháng 5 2023 lúc 7:49

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.


Các câu hỏi tương tự
Gãy Cánh GST
Xem chi tiết
Gãy Cánh GST
Xem chi tiết
Silver Enver
Xem chi tiết
Lê Vũ Khánh Thy
Xem chi tiết
Thanh Khương
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
Trần Linh Chi
Xem chi tiết
Trần Đăng Trọng
Xem chi tiết
Hoàng Kim 8B
Xem chi tiết