viết chương trình nhập tính diện tích và chu vi hình vuông với chiều dài cạnh a được nhập từ bàn phím
2 câu trả lời
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('a='); readln(a);
cv:=a*4;
dt:=sqr(a);
if a>0 then
begin
writeln('chu vi hinh vuong la: ',cv);
writeln('dien tich hinh vuong la: ',dt);
end
else writeln('vui long nhap so a lon hon 0');
readln;
end.
program bai_giai;
uses crt;
var a:longint;
begin
clrscr;
write('nhap canh cua hinh vuong:');readln(a);
writeln('chu vi:=',a*4);
write('dien tich:',a*a);
readln;
end.