Nhập độ dài 2 cạnh của hình chữ nhật . Hãy tính diện tích và chu vi
2 câu trả lời
program Hinh_chu_nhat;
uses Crt;
var a,b,s,c: real;
Begin
clrscr;
write('Nhap chieu dai= '); readln(a);
write('Nhap chieu rong= ');readln(b);
s:=a*b;c:=(a+b)*2;
writeln('Dien tich hinh chu nhat: ’,s:6:2);
writeln('Chu vi hinh chu nhat: ',c:6:2);
readln
End.
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b; CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln;
end.
Câu hỏi trong lớp
Xem thêm