viết câu lệnh thông báo kết quả tính toán chu vi và diện tích hình tròn

2 câu trả lời

uses crt;
var r:real;
begin
clrscr;
   write('Nhap ban kinh: ');readln(r);

   writeln('Chu vi: ',2*r*pi:0:5);

   writeln('Dien tich: ',r*r*pi:0:5);
readln
end.

var r:real;
begin
write('Nhap vao ban kinh = ');readln(r);
writeln('Chu vi = ',2*r*pi:0:2);
writeln('Dien tich = ',r*r*pi:0:2);
readln;
end.

Câu hỏi trong lớp Xem thêm