HÃY VIẾT CHƯƠNG TRÌNH NHẬP VÀO 2 SỐ a và b là 2 cạnh của hình chữ nhật từ bàn phím .sau đó tính chu vi,diện tích rồi biểu thị kết quả ra màn hình

Question

haianh · Answer

uses crt;

var dt, cv, a, b: real;

begin

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

dt:=a*b;

cv:=(a+b)*2;

clrscr;

writeln(‘Dien tich hinh chu nhat: ‘, dt);

writeln(‘Chu vi hinh chu nhat: ‘, cv);

readln

end.

haiyen · Answer

Program CT_DT_HT;

Uses Crt;

Var a, b : integer;

c, d : real;

Begin

Clrscr;

writeln (‘chieu dai hcn la a =’);

Read (a);

writeln (‘chieu rong hcn la b =’);

Read (b);

c := (a+b)×2;

d := a×b;

writeln (‘chu vi hcn la ‘,c);

writeln (‘diện tích hcn la ‘,d);

Readln;

End.