Question

Tính diện tích hình chữ nhật khi biết chiều dài và chiều rộng được nhập từ bàn phím

Answer 1

Program Bui_Trung_Hau; (Thay đổi tên tùy ý thích nhé!!!)
uses crt;
Var a, b, p, s integer;
Begin;
Write ('Nhap chieu dai CD'); Readln (a);
Write ('Nhap chieu rong CR'); Readln (b);
p:= (a+b)*2
S:= a*b
Writeln ('Chu vi hinh chu nhat:' ,p);
Writeln ('Dien tich hinh chu nhat:' ,S);
Readln;
End.
P/s: Theo mình thì là như vậy nhé!!! Có j sai sót thì thoai vại!!!~

Answer 2

Program HCN;

uses crt;

var a,b,CV,S:real;

begin

clrscr;

writeln('nhap chieu dai:');readln(a);

writeln('nhap chieu rong:');readln(b);

CV:=(a+b)*2;

S:=a*b;

writeln('chu vi hinh chu nhat la',CV);

writeln('dien tich hinh chu nhat la',S);

readln;

end.