Question

nhap vao chieu dai va chieu rong cua hinh chu nhat tu ban phim. sau do in ra man hinh dien tich va chu vi hinh chu nhat do. luu y lam tron den mot chu so thap phan doi voi chu vi va dien tich

Answer 1

uses crt;

var a,b,cv,dt:real;

begin

clrscr;

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

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

if (a>0) and (b>0) and (a>=b) then

begin

cv:=(a+b)*2;

dt:=a*b;

writeln('chu vi la: ',cv:4:1);

writeln('dien tich la: ',dt:4:1);

end

else writeln('vui long nhap lai');

readln;

end.