В квадрат вписана окружность. Определите площадь заштрихованной части фигуры, если...

Question

В квадрат вписана окружность. Определите площадь заштрихованной части фигуры, если известен радиус окружности

---

Answer 1

Var s,r:real;
begin
writeln('Введите радиус: ');
readln(r);
s:=sqr(r)*(4-Pi)/2;
writeln('Ответ: ',s);
end.