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