M.N giup tí

Đây là cách giải S ht nhé:
Program s.hinhtron;
Uses crt;
Const pi=3.14;
Var r,s:real;
Begin
(Ấn tab)clrscr
(Ấn tab)write('nhap ban kinh:');
(Ấn tab)readln(r)
(Ấn tab)S:=pi*r*r;
(Ấn tab)writeln('dien tich hinh tron la:',S:5:2);
(Ấn tab)readln
End.
Nhớ chép y nguyên nhá,cái này viết trên pascal turbo.

Những người đã like dinoxlc bởi bài viết có ích này:

Bekvam