chuowng trình nhập với từ bàn phím số a bất kì . kiểm tra a>0 thì tính chu vi và diện tích hình vương có cạnh là a . ngược lại nếu a<=0 thì kết luận a không phải là cạnh của hình vuông
2 câu trả lời
program bai_giai;
uses crt;
var a:real;
begin
clrscr;
write('nhap a: ');readln(a);
if a<=0 then write('khong phai la canh cua hinh vuong') else
begin
write(' chu vi la: ',(a*4):5:2);
write('dien tich la',(a*a):5:2);
end;
readln;
end.
Program hinhvuong;
Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Nhap canh a cua hinh vuong:');
Readln(a);
If a>0 then
Begin
Write('Chu vi hinh vuong la:', a*4);
Write('Dien tich hinh vuong la:', a*a);
End
Else write('a khong phai la canh cua hinh vuong');
Readln;
End.
