viết chương trình tính diện tích hình vuông với độ dài cạnh đc nhập từ bàn phím
2 câu trả lời
uses crt;
var a,dt:longint;
begin
clrscr;
write('Nhap do dai canh tu ban phim: ');readln(a);
dt:=a*a;
writeln('Dien tich hinh chu nhat: ',dt);
readln
end.
uses crt;
var c: integer;
begin
clrscr;
write ('nhap do dai cua 1 canh: '); readln (c);
write ('dien tich la: ',c*c);
readln;
end.
