Cíu ngộ mấy nị ơi <3 Viết chương trình tính và in ra màn hình chu vi, diện tích hình chữ nhật, biết độ dài 2 cạnh nhập từ bàn phím.

2 câu trả lời

Program BTH;

uses crt;

var cd,cr:longint;

Begin

clrscr;

Write('Nhap chieu dai: '); readln(cd);

Write('Nhap chieu rong: '); readln(cr);

writeln('Chu vi la: ',(cd+cr)/2:4:2);

write('Dien tich la: ',cd*cr);

Readln;

End. 

var a,b:integer;

begin

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

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

writeln('Chu vi la: ',(a+b)/2:0:2);

write('Dien tich la: ',a*b);

readln

end.