Viết chương trình chu vi và diện tích hình tròn với bán kính r ( r> 0) được nhập vào từ bàn phím

2 câu trả lời

uses crt;
var r:real;
begin
clrscr;
    readln(r);
    writeln(r * 2 * pi:0:2);
    writeln(r * r * pi:0:2);
readln;
end.

-.-

program ct;

uses crt;

 var cv,s,r:longint;

const pi=3.14;

begin

clrscr;

write('nhap ban kinh: ');

readln(r);

s:=sqr(r)*pi;

r:=2*r*pi;

writeln('chu vi',cv,'  s=',s);

readln;

end.

-.-