Viết ct nhập từ bàn phím, bán kính R của đường tròn, tính CV, S đường tròn đó. Ghi hay suất kết quả ra màn hình.

Program Chu_vi_Dien_tich_hinh_tron;
Uses Crt;
Var R,dt,cv:real;
Begin
    Clrscr;
    Writeln(' Tinh dien tich va chu vi hinh tron:');
    Readln('Tinh dien tich va chu vi hinh tron');
    Write ('Nhap ban kinh R =');
    Readln(R);

    dt:=pi*R*R;

     cv:=2*pi*R;
    Writeln('Dien tich hinh tron la:',dt:6:2);
    Writeln('Chu vi hinh tron la:',cv:6:2);
    Readln;
End.

Viết ct nhập từ bàn phím, bán kính R của đường tròn, tính CV, S đường tròn đó.  

r = d/2 

C = d * 3.14 = 2r * 3.14.

x r nè bạn