Viết diện tích và chu vi đường tròn có bán kính R trong đó R là 1 số dương được nhập từ bàn phím
1 câu trả lời
Program BTT;
Uses crt;
Const pi=3.14;
Var r,s,p: longint;
Begin
Clrscr;
Write('Nhap ban kinh: '); Readln(r);
s:=sqr(r)*pi;
p:=2*r*pi;
Write('Dien tich la: ',s:0:2);
Write('Chu vi la: ',p:0:2);
Readln
End.