Nhập vào bán kính của hình tròn. In ra màn hình diện tích và chu vi của nó?

2 câu trả lời

program Tin_hoc;

uses crt;

var n:real;

begin

clrscr;

write('Nhap ban kinh: ');readln(n);

writeln('Chu vi cua hinh tron: ',n*2*3.14:0:2);

writeln('Dien tich cua hinh tron: ',n*n*3.14:0:2);

readln;

end.

program BTH;
uses crt;
var a:real;
BEGIN
        clrscr;
        Write('Nhap ban kinh: ');readln(a);
        Writeln('Chu vi hinh tron la: ',(a+a)*pi:4:2);
        writeln('Dien tich hinh tron la: ',a*a*pi:4:2);
        readln;
END.