В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
bengamin1993
bengamin1993
14.05.2022 06:40 •  Информатика

Мне нужна марка машини opel в програме pascaleabc 30

Показать ответ
Ответ:
ALINAscool9898
ALINAscool9898
21.08.2020 18:54

вот программа:

program Speed;

uses crt,graphABC;

begin

circle (180,330,30);

circle (180,330,40);

Line (180,330,165,315);

Line (180,330,195,315);

Line (180,330,195,330);

Line (180,330,165,330);

Line (180,330,165,345);

Line (180,330,195,345);

Line (180,345,180,315);

circle (450,330,30);

circle (450,330,40);

Line (435,330,465,330);

Line (450,315,450,345);

Line (465,315,435,345);

Line (435,315,465,345);

Line (143,315,120,315);

Line (120,315,110,330);

Line (110,330,60,330);

Line (60,330,55,320);

Line (55,320,55,280);

Line (55,280,64,280);

Line (63,280,90,240);

Line (90,240,180,225);

Line (180,225,210,160);

Line (210,160,510,160);

Line (510,160,480,210);

Line (489,195,540,300);

Line (540,300,491,330);

Line (491,330,540,330);

Line (540,330,510,355);

Line (510,355,481,355);

Line (540,330,540,300);

Line (418,355,212,355);

Line (147,355,60,355);

Line (60,355,60,330);

Line (105,240,86,280);

Line (86,280,60,280);

Line (220,330,410,330);

Line (480,210,450,210);

Line (450,210,440,160);

Line (165,270,300,270);

Line (165,270,165,292);

Line (165,270,213,165);

Line (213,165,420,165);

Line (420,165,420,240);

Line (420,240,360,320);

Line (360,320,310,320);

Line (310,320,305,315);

Line (305,315,330,240);

Line (330,240,420,240);

Line (330,270,360,270);

Line (330,240,330,165);

Line (180,260,220,170);

Line (220,170,320,170);

Line (320,170,300,270);

Line (180,260,300,260);

Line (300,270,283,320);

Line (283,320,220,320);

Line (255,300,285,300);

Line (55,287,165,287);

Line (385,287,533,287);

Line (102,247,175,247);

Line (416,247,514,247);

end.

Вродебы...

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота