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

Đây nha: 

Program dientich;

Uses crt;

Var d,s:real;

Begin

Clrscr;

Write('Nhap do dai ban kinh: '); Readln(d);

s:=d*d*3.14;

Writeln('Ban kinh hinh tron la: ',s:2:2);

Readln;

End.