Очень надо!!!!!!!!!!!!!!!!!!!!!!

Question

Очень надо!!!!!!!!!!!!!!!!!!!!!!

---

Comments

У меня есть вариант решения этой задачи, но со вводом пиксельного радиуса, так как слишком много исключений получается, если вводить сантиметры. Но Вам надо?

---

хорошо, пойдойдет

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

uses graphABC;
Var
 r:integer;
begin;
readln(r);
rectangle(150-r,50,350+r,150+r*2);
line(200,100,300,100);
line(200,100+r*2,300,100+r*2);
arc(200,100+r,r,90,270);
arc(300,100+r,r,90,-90);
end.