viết chương trình nhập vào số a bất kỳ từ bàn phím. Nếu a dương thì tình chu vi và diện tích của hình vuông cạnh a. Nếu a âm thì thông báo không phải là cạnh hình vuông Cần gấp ạ
2 câu trả lời
program kiemtra;
uses crt;
var a:real;
begin
clrscr;
write('Nhap a: '); readln(a);
if a>0 then
begin
writeln('Chu vi hinnh vuong la: ',a*4:2:0);
writeln('Dien tich hinh vuong la: ',a*a:2:0);
end
else write('Khong phai canh hinh vuong');
program phuongt;
uses crt;
var a: real;
begin
clrscr;
write('Nhap a = '); readln(a);
if a<0 then write(a, ' khong phai canh hinh vuong') else
begin
writeln('Chu vi hinh vuong canh a: ', a*4);
write('Dien tich hinh vuong canh a: ', a*a);
end;
readln
end.
