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.
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.
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.
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.