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

Question

aivilan · Answer

program hcn;

var a,b,s,p : real;

begin

write(‘Nhap do dai:’); Readln(a);

Write(‘Nhap chieu rong:’); readln(b);

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

Writeln(‘Dien tich hinh chu nhat la:’,S);

Writeln(‘Chu vi hinh chu nhat la:’,p:10:2);

readln;

end.

0 bình luận về “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”