Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh là a, b (được nhập từ bàn phím).

2 câu trả lời

uses crt;

var a, b, cv, s : integer;

begin

clrscr;

write('nhap chieu dai va chieu rong : ');readln(a, b);

cv := (a + b) * 2;

s := a * b;

writeln('chu vi = ', cv);

writeln('dien tich = ', s);

readln

end.

uses crt;
var a,b,chuvi,dientich:real;
Begin
clrscr;
Write('Nhap a va b=');Readln(a,b);
chuvi:=(a+b)*2;
dientich:=a*b;
Write('Dien tich hinh chu nhat la=',dientich:5:2);
Readln;
Write('Chu vi hinh chu nhat la=',chuvi:5:2);
Readln
end.