Есть ответ 👍

Проверьте , почему не работает

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

Ответы на вопрос:


Uses graphabc; var i: integer;   procedure montain (x,y,k: integer); begin setpenwidth(1); setpencolor(clgreen); line(x,y,x-(30*k),y+(30*k)); line(x,y,x+(30*k),y+(30*k)); line(x+(30*k),y+(30*k),x-(30*k),y+(30*k)); floodfill(x,y+10,clgreen); setpencolor(clbrown); line(x,y,x-(20*k),y+(20*k)); line(x,y,x+(20*k),y+(20*k)); line(x+(20*k),y+(20*k),x-(20*k),y+(20*k)); floodfill(x,y+10,clbrown); setpencolor(clwhite); line(x,y,x-(10*k),y+(10*k)); line(x,y,x+(10*k),y+(10*k)); line(x+(10*k),y+(10*k),x-(10*k),y+(10*k)); floodfill(x,y+5,clwhite); end;   begin setpencolor(clnavy); setwindowsize(900,600); clearwindow(clnavy); for i: =1 to 100 do     begin     setbrushcolor(rgb(random(255),random(255),random(;     circle(random(700)+200,random(180),3);     end; setbrushcolor(clgreen); rectangle(0,350,900,600); setpencolor(clblue); arc(900,1300,900,0,180); floodfill(800,500,clblue); montain (500,150,7); montain (700,170,6); montain (300,200,5); montain (200,270,3); montain (600,270,3); montain (400,270,2); montain (50,300,2); setpencolor(clteal); arc(500,1250,900,80,180) arc(800,1250,900,95,180); floodfill(100,500,clolive); setpencolor(clwhite); arc(100,100,50,-84,180); arc(70,130,40,-30,150); floodfill(100,100,clwhite); end. плагиат ,конечно, но всё же

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS