Составить условия для данной программы в pascal.abc uses graphabc; var i,x,y,k: integer; begin setwindowsize(800,600); clearwindow(clblue); clearwindow(clpink); setbrushcolor(clskyblue); rectangle(0,300,800,450); setpencolor(cllime); setbrushcolor(clgreen); for i: =1 to 200 do begin x: =random(761); y: =random(141)+300; k: =random(20); ellipse(x,y,x+20+k,y+5); end; setpencolor(rgb(255,247,178)); setbrushcolor(rgb(255,247,178)); rectangle(0,450,800,500); setpencolor(cllime); setbrushcolor(cllime); circle(120,170,100); circle(670,170,100); setpencolor(clbrown); setbrushcolor(rgb(209,149,99)); x: =40; y: =470; k: =0; for i: =1 to 20 do begin rectangle(x+k,y,x+30,y-15); x: =x+3; y: =y-15; k: =k+1; end; x: =750; y: =470; k: =0; for i: =1 to 20 do begin rectangle(x-k,y,x-30,y-15); x: =x-3; y: =y-15; k: =k+1; end; setpencolor(clyellow); setbrushcolor(clyellow); circle(300,90,70); end.

mirpodrostka    3   20.04.2019 12:04    2