Информатика: Реал нужна Там только 9, 12, 15 сделать с этими 3 заданиями, я от :( :( :( :(

omy00god

23.06.2022 16:48

Есть ответ 👍

Реал нужна Там только 9, 12, 15 сделать с этими 3 заданиями, я от :( :( :( :(

152

200

Посмотреть ответы 1

sabina9262

Информатика

4,4(38 оценок)

uses graphabc;

procedure drawlight(x, y, r : integer; c : color);

begin

brush.color : = c;

circle(x, y, r);

end;

begin

randomize;

var v : = random(1, 3);

var(c1,c2,c3): =(clwhite,clwhite,clwhite);

case v of

1 : c1 : = clred;

2 : c2 : = clyellow;

3 : c3 : = clgreen;

end;

drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.