Сосавьте пожалуйста формулу PascalABC Площадь круга через диаметр

Question

Сосавьте пожалуйста формулу PascalABC Площадь круга через диаметр

Answer 1

Відповідь:

Program Programing_The_Best;

var d, r, PI, S: real;

begin

    PI := 3.1415926535;

    read(d);

    r := d / 2;

    S := PI * r * r;

    write(S);

end.