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

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

Задать свой вопрос
Степа Бабаров
У меня есть вариант решения этой задачки, но со вводом пиксельного радиуса, так как очень много исключений выходит, если вводить см. Но Для вас надобно?
Анна Шамарина
хорошо, пойдойдет
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.



, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт