Viết chương trình nhập vào Chiều dài,chiều rộng của hình chữ nhật, xuất ra chu vi, diện tích của hình chữ nhật đó

2 câu trả lời

uses crt;

var a, b : integer;

begin

clrscr;

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

readln(a, b);

writeln('Chu vi hinh chu nhat = ', (a + b) * 2);

writeln('Dien tich hinh chu nhat = ', a * b);

readln

end.

program tin_hoc;

uses crt;

var a,b,P,S: integer;

Begin

clrscr;

write ('Nhap a,b:'); readln (a,b);

P:=(a+b)*2;

S:=a*b;

write ('Chu vi hcn la:',P);

write ('Dien tich hcn la:',S);

readln;

End.