Question

tính chu vi và diện tích hình chữ nhật ?

Answer 1

uses crt;

var dai,rong,cv,dt:real;

begin

clrscr;

repeat

write('Nhap chieu dai:'); readln(dai);

write('Nhap chieu rong:'); readln(rong);

until (dai>0) and (rong>0) and (dai>=rong);

cv:=(dai+rong)*2;

writeln('Chu vi la: ',cv:4:2);

dt:=dai*rong;

writeln('Dien tich la: ',dt:4:2);

readln;

end.