1. program Hinh_chu_nhat;
var S, a, b, cv:real;
begin
writeln ('Nhap chieu dai=');
readln (a);
writeln ('Nhap chieu rong=');
readln (b);
S:=a*b;
cv:=(a+b)*2;
writeln ('Dien tich hinh chu nhat la ' , S);
writeln ('Chu vi hinh chu nhat la ' , cv:0:2);
readln;
end.
2. program Hinh_vuong;
var S, a, cv:real;
begin
writeln ('Nhap canh cua hinh vuong=');
readln (a);
S:= a*a;
cv:= a*4;
writeln ('Dien tich hinh vuong la ' , S);
writeln ('Chu vi hinh vuong la ' , cv);
readln;
end.
@ngocc_vanw
- Xin 5 sao và ' Câu trả lời hay nhất ' ạ!