Lập trình tính diện tích hình chữ nhật biết chiều rộng bằng 1/3 chiều dài, chiều dài được nhập từ 2 bàn phím Kí hiệu cạnh a.chiều rộng b.chiều dài c.diện tích
2 câu trả lời
Program NN;
Uses crt;
Var a,b,c: extended;
Begin
Clrscr;
Write('Nhap b: '); Readln(b);
a:=b/3;
c:=a*b;
Write('Dien tich la: ',c:0:2);
Readln
End.
Program dien_tich_hcn;
Uses crt;
Var a,b,c: real;
Begin
Clrscr;
Readln(b);
A:= b*1/3;
C:= a*b;
Writeln('dien tich hcn la: ',c);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
