Вpascal abc.net нужно нарисовать 5 кругов с увеличивающимся радиусом. круги как у снеговика ( нижний - самый большой, а соответственно верхний - самый маленький) uses crt,graphabc; var x,y,radius,radius1,c,t,n: integer; begin setwindowsize(300,500); x: =200; y: =30; radius: =20; t: =50; for c: =1 to 5 do begin radius1: =radius+10*c; n: =t+20; circle(x,y+n*c,radius1); end; end.

yra8372004    3   18.09.2019 17:20    0