Что нужно вставить в этой программе uses graphabc; var clmedgray,clnavy,clwhite,clblack: ; begin setwindowsize(600,500); setbrushcolor(clmedgray); ellipse(320,30,490,400); ellipse(120,30,300,400); setbrushcolor(clcream); ellipse(335,40,480,380); ellipse(140,40,280,380); setbrushcolor(clmedgray); ellipse(100,430,500,130); setbrushcolor(clnavy); ellipse(250,240,200,310); ellipse(350,240,400,310); setbrushcolor(clwhite); ellipse(240,270,220,300); ellipse(360,270,380,300); setbrushcolor(clblack); ellipse(270,330,330,370); line(300,370,300,400); arc(300,280,120,220,-40); line(50,350,200,350); line(30,340,190,340); line(10,330,180,330); line(410,330,570,330); line(400,340,560,340); line(390,350,550,350); line(240,230,220,150); line(230,230,180,80); line(220,230,180,150); line(360,230,380,150); line(370,230,430,80); line(380,230,430,150); end.
максим13011
2
05.04.2019 21:15
8
Другие вопросы по теме Информатика
roseflover2005
19.09.2019 16:16
Шан15
18.02.2020 21:26
slavaborisov611
18.02.2020 21:28
Aksiomsa868589
18.02.2020 21:30
mondy358
18.02.2020 21:32
dfgfdgfd1
18.02.2020 21:33
VikaTomaRetaSasha
18.02.2020 21:33
elinatyul
18.02.2020 21:34
dfytr88
15.09.2019 22:20
Популярные вопросы
- Найди площадь закрашеной фигуры...
3 - По графику данной функции определи те значения x, при которых значения функции...
3 - Первое число равно 2,86, что составляет 25% второго числа. Найдите произведение...
1 - 7p-q/pq-1/p+q (p/q -q/p) = 6/q Решите...
2 - Решите соч по биологии класс...
2 - Напишіть рівння реакцій за до яких можна здійснити ланцюжок перетворення-барій-барій...
2 - мне очень надо максимум 6 во взамен ...
3 - Чертёжнику был дан для исполнения следующий алгоритм: Повтори 4 раз Сместиться...
1 - Какое утверждение является истинным : а) Заряд частицы может быть равен 12,...
2 - Что тут написано не могу панять...
1
uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clMintCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.