Question

Mọi người cho em hỏi cách làm bài này với ạ. Cảm ơn ạ.

 

Answer 1

Var a, s:real;

Begin

Write('Nhap a = ');readln(a);

S:=3.14*a*a/2;

Write('Dien tich hinh tron la ',s:10:2);

Readln;

End.