KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
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.
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