b.
Program Hoc24;
Uses crt;
Var r,S,C:real;
Begin
Write ('Ban kinh la');
Readln (r);
S:=r*r*3.14;
C:=r*2*3.14;
Writeln ('Chu vi la',C);
Writeln ('Dien tich la',S);
Readln;
End.
Đúng 1
Bình luận (0)