Viết CT nhập vào hai cạnh của hình chữ nhật và in ra diện tích hình chữ nhật
2 câu trả lời
uses crt;
var d, r : integer;
begin
clrscr;
write('Nhap chieu dai va chieu rong : ');
readln(d, r);
write('Dien tich = ', d * r);
readln
end.
uses crt;
var a,b,S : real;
begin
clrscr;
write('nhap chieu dai cua hinh chu nhat la: ');readln(a);
write('nhap chieu rong cua hinh chu nhat la: ');readln(b);
S:=a*b;
writeln('Dien tich hinh chu nhat la: ',S);
readln;
end.