2 câu trả lời
program hinhvuong;
uses crt;
var a, chu vi, dien tich : real;
BEGIN
clrscr;
write('Nhap canh a= ');
readln(a);
cv:=4*a;
dt:=a*a;
writeln('Chu vi = ', cv:6:2);
writeln('Dien tich = ',dt:6:2);
readln
END
Chúc bạn học tốt, hãy vote5*+CTRLHN+Cảm ơn
PROGRAM HINH VUONG;
(Nhập cạnh a của hình vuông. Tính chu vi, diện tích của hình vuông ấy)
VAR a:real;
BEGIN
Write('Nhap canh a: ');readln(a);
Writeln;
If a>0 then
begin
Writeln('Chu vi P = ',4*a:6:2);
Writeln('Dien tich S = ',a*a:6:2);
end
Else writeln(#7,'Khong thuc hien vi a <= 0');
Readln
END.
Thôi tui chỉ cần 5* + cảm ơn , nhường bn kia vậy
Câu hỏi trong lớp
Xem thêm
