Как заменить в турбо паскале чтоб она решалась в паскале abc? program krugi; uses crt; var gd,gm,c,i,r,x,y,n: integer; begin clrscr; randomize; writeln('введите колличество окружностей-> '); readln(n); gd: =0; for i: =1 to n do begin r: =random(80); x: =random(600); y: =random(400); c: =random(15); setcolor(c); circle(x,y,r); setfillstyler(1,c); floodfill(x,y,c); end; readkey; closegraph; end.

darkfire2017oxd5un    1   29.05.2019 19:50    0