Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
wasuablezko08.07.2020 09:52
-
Вика555200227.03.2021 14:30
-
nastunya2225.04.2023 08:25
-
ник504527.11.2021 11:18
-
mariooouvanov25.05.2022 00:13
-
вася78318.12.2020 06:47
-
mlpnko213.01.2022 15:06
-
777kicigina16.04.2020 17:10
-
elizavetafilip221.02.2021 16:20
-
seletkovaolya09.09.2021 07:28
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.