Мне к завтрашнему дню нужно сделать программу,рисующую пейзаж с солнцем и радугой. у меня у родителей годовщина 15 лет, я даже подарок не купила. за понимание! 59 !

281

292

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

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

микс111111

Информатика

4,7(5 оценок)

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. плагиат ,конечно, но всё же

жека569

Информатика

4,5(80 оценок)

Числа являются взаимно простыми, если их наибольший общий делитель равен 1. используя это свойство, напишем программу: var a, b, c: integer; {нод двух чисед} function gcd(a, b: integer): integer; var t: integer; begin while b > 0 do begin t : = b; b : = a mod b; a : = t; end; gcd : = a; end; {проверка трех чисел на взаимную простоту} function iscoprime(a, b, c: integer): boolean; begin iscoprime : = gcd(gcd(a, b), c) = 1; end; begin read(a, b, c); if iscoprime(a, b, c) then write('числа взаимно простые') else write('числа не являются взаимно простыми'); end.

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

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

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

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

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

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

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

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

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

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