Question

Viết chương trình tính diện tích hình tròn với bán kính là d ,hằng số p là 3.14

Answer 1

program dung;

uses crt;

var d,s: real;

begin

clrscr;

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

s:=(d/2)*(d/2)*pi;

write('Dien tich la: ',s:1:2);

readln;

end.