Viết chương trình tính diện tích và chu vi hình vuông ABCD với cạnh AB được nhập từ bàn phím.In ra kết quả ra màn hình,giúp mik với ạ
2 câu trả lời
uses crt;
var a, cv, s : integer;
begin
clrscr;
write('nhap canh AB : ');readln(a);
cv := a * 4;
s := a * a;
writeln('chu vi hinh vuong : ', cv);
writeln('dien tich hinh vuong : ', s);
readln
end.
program C2;
uses crt;
var AB,cv,S:real;
Begin
clrscr;
write('AB = ');readln(AB);
cv:=AB*4;
S:=AB*AB;
writeln('Dien tich hinh vuong: ',S:2:2);
write('Chu vi hinh vuong: ',cv:2:2);
readln
End.