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.
-.-