Ответы на вопрос:
uses graph; var n,i,x,y,height,width: integer; procedure init; var gd,gm: integer; begin gd: =vga; gm: =vgahi; initgraph (gd,gm,''); end; procedure error; begin closegraph; writeln ('error! '); end; begin write ('n = '); readln (n); randomize; init; if graphresult = 0 then begin for i: =1 to n do begin
setcolor (random(14)+1); x: =random(640); y: =random(480); height: =random(91)+10; width: =random(101)+20; rectangle (x,y,x+width,y+height); end; end else error; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
catcher103.07.2020 02:04
-
настящасте04.06.2021 12:26
-
diasdias200028.08.2022 11:08
-
незнайка333333333323.08.2021 23:11
-
sharinaEl16.05.2022 04:41
-
eruder25.02.2021 17:01
-
24301324.08.2022 16:40
-
никлася26.12.2020 00:02
-
38067494418327.04.2022 21:46
-
viiiiiiiiiiii14.04.2020 02:16
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.