Viết chương trình PAS, yêu cầu nhập từ bàn phím bán kính hình tròn ( biến r). Tính và in ra màn hình chu vi, diện tích hình chữ nhật có chiều dài là chu vi hình tròn, và chiều rộng là 1/3 chu vi hình tròn. Biết pi=3.14 *

program Dien_tich;

uses crt;

var r, d : real;

begin

clrscr;

write('Nhap r = '); readln(r);

d := 2 * r * 3.14;

r := d / 3;

writeln('Chu vi = ', (d + r) * 2 : 2 : 2);

writeln('Dien tich = ', d * r : 2 : 2);

readln

end.

Program ct;
uses crt;
var r, dt, cvHT, cvHCN: real;
const pi=3.14;
begin
    clrscr;
    writeln('Nhap R: '); readln(r);
    cvHT:=2*r*pi; cvHCN:=(cvHT+cvHT/3)*2; dt:=cvHT*cvHT/3;
    writeln('Chu vi HCN la: ',cvHCN:5:2);
    writeln('Dien tich HCN la: ',dt:5:2);
    readln;
end.

_________________________________________

#HocTot
#ThiTot
#Duahauvn