В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.
begin
var (x,y,r):=(150,50,30);
SetWindowSize(300,550);
for var i:=1 to 5 do begin
Circle(x,y,r);
y+=r; r+=5*i; y+=r
end
end.