Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Cardboard
10.05.2022 04:22 •
Информатика
Напишите программу в паскаль чтобы нарисован был светофор)) небольшой, разрисован нужными цветами( жёлтый, зелёный, красный) и сам светофор серый.. надеюсь на вашу программу не большую)
Показать ответ
Ответ:
vkuke
03.07.2020 12:38
Uses graphabc;
begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (140, 450, 160, 600)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Милята240106
09.04.2021 16:30
Составьте программу по которой компьютер десять раз запросит ввод целых и в результате выведет среднее арифметическое использовать оператор for...
Kate0526
05.02.2021 21:37
4.4 как осуществить перевод чисел из любой с/c в 10 с/с? 4.5 почему в качестве промежуточной для перевода из 10с/c в 2с/с используют 8с/c и 16с/с? 4.8 по какому правилу...
ako91545
18.09.2022 05:57
Ученик 9 класса сдает зачет по информатике сколько информации несет сообщение о том что он не сдал зачет...
ДашаНифонтова
03.01.2020 07:10
1.переведите число 221 из системы счисления с основанием 3 в десятичную 2.переведите число 123 из системы счисления с основанием 7 в десятичную 3.переведите число 323...
kasym2
01.09.2020 12:01
На вашем generic android 4.0 был обнаружен , что это значит? У меня андроид 10, хотела скачать игру с сайта и вылезло вот это......
elenafilatova11
20.11.2021 06:03
Составьте блок схему для алгоритма уборка квартиры с пылесоса ...
tekeevalb
14.12.2022 15:10
Решение задач на применение одномерного массива 1. Дан одномерный массив. Найдите количество положительныхэлементов массива.2. Дан одномерный массив. Выведите на экран...
san11217
24.01.2020 07:32
Что ты знаешь о плагиате?Представь, что твой друг разместил твои фотографии на странице в социальной сети без твоего разрешения. Как ты на это отреагируешь? Как ты...
санёк1234567817626
29.07.2021 12:06
Напишите программу, которая вводит последовательность целых чисел заканчивающейся нулем и определяет, сколько двузначных чисел в последовательности....
РомаУзденов
19.10.2022 12:26
Паскаль с клавиатуры по одному символу вводятся ваши фамилия, имя, отчество, указанные через пробел. признаком конца ввода является символ «точка». определить: 1) количество...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (90, 90, 210, 450 );
setpencolor (clred);
setbrushcolor (clred);
circle (150, 150, 50);
setpencolor (clyellow);
setbrushcolor (clyellow);
circle (150, 260, 50);
setpencolor (clgreen);
setbrushcolor (clgreen);
circle (150, 370, 50);
setpencolor (clblack);
setbrushcolor (clgray);
rectangle (140, 450, 160, 600)
end.