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.