Question

Cho hình tròn tâm I(0;0) bán kính R (0<R<20). Viết chương trình nhập vào bán kính R, tính và đưa ra diện tích hình tròn. MÌNH ĐANG CẦN GẤP Ạ

Answer 1

uses crt;

var r:real;

begin

clrscr;

readln(r);

writeln('Chu vi la:',r*2*pi:4:2);

writeln('Dien tich la: ',r*r*pi:4:2);

readln;

end.