Em hãy viết chương trình nhập độ dài cạnh của hình vuông, sau đó tính diện tích hình vuông và in kết quả diện tích ra màn hình.
2 câu trả lời
uses crt; var a,s,c:real begin clrscr; write(‘nhap canh:’); readln(a); c:=a*4; s:=a*a; write(‘ diện tích hình vuông là: ‘,s); readln;
Program bt;
Var a , s :integer;
Uses crt;
Begin
Clrscr;
Writeln ('Canh hinh vuong:');
Readln (a);
S:=a*a;
Writeln ('dien tich hinh vuong:' ,dt);
Readln;
End.
Câu hỏi trong lớp
Xem thêm