viết ngon ngữ pascal để gải pt đó nhập từ bàn phím số đo một cạnh hình vuông hiện ra màn hình chu vi và diện tích của hình đó
2 câu trả lời
program hinh_vuong;
use crt;
var a, C, S: real;
begin
clrscr;
write ('so do canh hinh vuong la: ');
readln (a);
C:= a*4;
S:= a*a;
write ('chu vi hinh vuong C: ');
write ('dien tich hinh vuong S: ');
readln
end.
mình chỉ viết phần thân thôi nha!
write('nhap so do mot canh hinh vuong: ');
readln(x);
CV:=4*x;
DT:=x*x;
writeln('chu vi hinh vuong la: ',CV);
writeln('dien tinh hinh vuong la: ',DT);
