Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
saididag
06.12.2020 19:19 •
Информатика
Pascal abc 10 пример uses robot )мне надо на оценку либо мне поставят 2 за четверть )0)
Показать ответ
Ответ:
Ульяна2732
07.10.2020 07:42
Вот программа с елкой:
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0
0,0
(0 оценок)
Популярные вопросы: Информатика
hahausyxu
21.02.2020 18:29
Каким образом из эллипса можно получить сектор, дугу...
95731
06.06.2021 19:20
Нужно нарисовать блок-схему 1. Выводящую на экран квадраты чисел от 5 до 15; 2. Вывести только те натуральные числа от 40 до 110, которые при делении на 7 дают остаток 1,...
milana374
28.11.2022 00:41
Буль ласка до іть, дуже хто розбирається у інформатиці програмі Mathcad ів...
даша1820065к
19.12.2021 17:24
F=a^b+a^b+a^b+b^c решить, это из элементов логики...
nastenkastetsen
06.10.2022 00:39
Найдите обратную функцию и постройте график: y=6x-1...
викуха307
29.11.2022 10:01
Заполните пустые ячейки таблицы «Реформаторская деятельность Петра I». Для этого используйте представленный ниже избыточный список: для каждой ячейки, обозначенной буквой,...
Mашka
16.10.2020 00:56
РИСУНОК ДАНО НАЙТИ РЕШЕНИЕ ОТВЕТ В равнобедренном треугольнике АВС с основанием АС = 14 см отрезок ВК биссектриса, угол АВК равен 40°. Найдите КС, угол АВС, угол ВКС....
Серг4й
16.10.2020 00:56
Определите стандартную теплоту образования Са3(РО4)2 , если известно, что: 3 СаО (кр) + Р2О5 (кр) = Са3(РО4)2 (кр); ΔНо298 =-2360,0 кДж ....
ppapsd
07.06.2021 08:02
Қолдану 51. Абайдың өмірі мен шығармашылығы туралы әңгіме-леуде ұсынылған кестені толтырып, сұрақтарға жауапберіңдер:Абайтуралы небілемін?Ненібілгімкеледі?Қосымшаақпараттықайдан...
zenalubimova
07.06.2021 08:02
Сравните государств раннего и развитого средневековья...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses GraphABC;
Begin
SetWindowSize(600,400);
line(250,100, 300,50);
lineto(350,100);
lineto(250,100);
floodfill(300,70, clgreen);
line(220,200, 300,100);
lineto(380,200);
lineto(220,200);
floodfill(300,150, clgreen);
line(200,300, 300,200);
lineto(400,300);
lineto(200,300);
floodfill(300,250, clgreen);
rectangle(290, 300,310, 320);
floodfill(300,305, clbrown);
line(0, 300, 100, 350);
lineto(200, 320);
lineto(400, 320);
lineto(600, 370);
lineto(600,400);
lineto(0,400);
lineto(0