viết chương trình nhập vào 2 cạnh a,b của hình chữ nhật từ bàn phím , tính đặc điểm của hình chữ nhật đó và in kết quả ra màn hình

1 câu trả lời

var

a,b,s,p:integer;

begin

write('nhap chieu dai=');readln(a);

write('nhap chieu rong=');readln(b);

p:=((a+b)*2);

s:=a*b;

writeln('chi vi =',p);

writeln('dien tich=',s);

readln;

end.

Câu hỏi trong lớp Xem thêm