Nhập vào bán kính hình tròn in ra diện tích và chu vi của nó
2 câu trả lời
Program NN;
Uses crt;
Const pi=3.14;
Var r,p,s: extended;
Begin
Clrscr;
Write('Nhap r: '); Readln(r);
s:=r*r*pi;
p:=2*r*pi;
Writeln('S = ',s:0:2);
Writeln('P = ',p:0:2);
Readln
End.
uses crt;
var r:real;
begin
clrscr;
write('r=');readln(r);
writeln('Dien tich: ',r*r*pi);
writeln('Chu vi: ',r*2*pi);
readln;
end.