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. плагиат ,конечно, но всё же
Radikovnanikolaeva
22.05.2020
Using system; namespace consoleapp0{ class program { static void main(string[] args) { int a = int.parse(console. b = int.parse(console.; if (a % b == 0 || b % a == 0) console.writeline("делится"); else console.writeline("не делится"); console.readkey(true); } }}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Файл музыкальной композиции занимает 9 мб флешка 16 гб. сколько таких полных флайлов вместится на флешку? !