Написать программу в паскаль, чтобы получилось это изображение.
Дианка20043005
2
27.10.2019 15:18
0 
Популярные вопросы
- Верны ли определения? А) Экономика – это совокупность производственных отношений...
1 - Творческая активность менеджеров, персонала, теоретиков-маркетологов, реализующих,...
3 - Верны ли определения? А) Дайвинг - вид туризма, позволяющий познать подводный...
1 - Верны ли определения? А) Туризм – это уровень качественного развития духовности,...
3 - Массовый конвейерный туризм характеризуется стандартными туристическими потребностями,...
3 - Для экскурсионно-познавательных туров выбирают страны с: Интересными туристскими...
1 - _ функция социально-культурной деятельности связана с развитием и саморазвитием...
2 - Продолжительность пребывания туристов в стране фиксируется при обсуждении с иностранным...
2 - Основными видами кредитных операций Межамериканской инвестиционной корпорации...
1 - Туристские фирмы в расчетах за гостиничные услуги используют цены: Конфиденциальные...
2
uses graphABC;
var i,x,y: integer;
begin
setwindowsize(400,500);
setpenwidth(7);
setpencolor(clgreen);
setbrushcolor(cllime);
x:=-30; y:=440;
for i:=1 to 4 do
begin
x:=x+90;
circle(x,y,50);
end;
for i:=1 to 4 do
begin
circle(x,y,50);
y:=y-90;
end;
line(300,70,310,120);
line(360,70,350,120);
circle(300,70,10);
circle(360,70,10);
circle(310,150,10);
circle(350,150,10);
arc(330,170,5,180,0);
arc(330,180,20,210,-30);
end.