viết chương trình nhập từ bàn phím số a bất kì a>0(là độ dài cạnh hình vuông). Tính diện tích hình vuông đó. Kết quả làm tròn đến 2 chữ số sau phần thập phân. help me

2 câu trả lời

Program baitap;
Uses crt;
Var a:real;
Begin
Clrscr;
Write('a='); Readln(a);
Writeln('Dien tich hinh vuong:',sqr(a):5:2);
Readln
End.

___________________

Đã test code

Program dien_tich;
Uses crt;
Var a,  S : real;
Begin
Clrscr;
Write('Nhap do dai canh a :');readln(a);

S := a*a;
Writeln('Dien tich hinh vuong  la :', S:8:2);
Readln
End.

Câu hỏi trong lớp Xem thêm