Предмет: Русский язык, автор: хавва2006

помогите пожалуйста составить предложения

Приложения:

Ответы

Автор ответа: qwaskat2dead2donny
1
Тонкий туман стоит над этой рощей и жёлтыми полями.
В осеннем мягком воздухе разлит свежий запах ещё не опавших листьев.
До чего хорош лес поздней осенью!
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: География, автор: 17082007honor
За рівнем економічного розвитку Японія належить до країн ...(вкажіть групу та підгрупу)​
2 года назад
Предмет: Математика, автор: haidiiimmm
9. Округлите число п до десятых и вычислите длину окружности, радиус которой равен 5 дм.​
2 года назад
Предмет: Химия, автор: nastyakeetty
запишіть хімічні формули природного газу якщо відомо що його молекули складається з одного атома карбону та двох атомів оксигену​
2 года назад
Предмет: Английский язык, автор: AnastasiaMorenko2005
РЕБЗЯ ПОМОГИТЕ ВСТАВИТЬ ЭТО ДОЛБАННОЕ СЛОВО КОТОРОЕ ПОДЧЁРКНУТО КРАСНЫМ.
8 лет назад
Предмет: Информатика, автор: Rail222
Написать программу, которая выводит на экран изображение работающего светофора.

Есть работающий светофор, но нужно чтобы он работал по алгоритму, который я прикрепил ниже. (СМ. фото)
Написать программу в PASCAL ABC, которая выводит на экран изображение работающего светофора. Рекомендуемый вид светофора и алгоритм его работы приведены ниже.В ПРОГРАММЕ ДОЛЖНЫ БЫТЬ КОММЕНТАРИИ, ПОЯСНЯЮЩИЕ ПРИНЦИП РАБОТЫ.

program svetofor;
uses graphabc,crt;
const t=500;

begin
setwindowsize (600, 600);
setpencolor (clblack);
setbrushcolor (clblack);
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 (clblack);
rectangle (140, 450, 160, 600);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50);

repeat
setbrushcolor (clDkGray); circle (150, 370, 50);
setbrushcolor (clred); circle (150, 150, 50); delay(t);
setbrushcolor (clDkGray); circle (150, 150, 50);
setbrushcolor (clyellow); circle (150, 260, 50); delay(t);
setbrushcolor (clDkGray); circle (150, 260, 50);
setbrushcolor (clgreen); circle (150, 370, 50); delay(t);
until keypressed;

end.
8 лет назад