Viết chương trình tính diện tích và chu vi hình chữ nhật. Với chiều dài và chiều rộng được nhập từ bàn phím. Giúp mình với mình vote 5 sao nhoa!

2 câu trả lời

Program baitap;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap chieu dai va chieu rong:');

Readln(a,b);

Writeln('Chu vi cua hinh chu nhat:',2*(a+b));

Writeln('Dien tich cua hinh chu nhat:',a*b);

Readln

End.

Program Bt;

Uses crt;

Var x,y,z,m: Real;

Begin

Clrscr;

Write('Hay nhap chieu dai và chieu rong: '); readln(x;y)

Z:=x.y;

M:=(x+y)*2;

Writeln(' dien tich la:, z:4:2);

Writeln('Chu vi la:, m:4:2);

Readln;

End.