ОБЪЯСНИТЕ строчки в программе. Конкретно интересует эта строчка:

A:=1700; R:=round (sqrt (A/pi)); circle (250,225,R);

Program d;

uses GraphABC;

var karta, R, A: integer;

begin

SetWindowSize (520,480);

karta:=LoadPicture ('belarus.gif');

DrawPicture (karta, 10,10);

setBrushColor (clRed);

A:=1700; R:=round (sqrt (A/pi)); circle (250,225,R);

A:=500; R:=round (sqrt (A/pi)); circle (405,345,R);

A:=330; R:=round (sqrt (A/pi)); circle (375, 215,R);

A:=340; R:=round (sqrt (A/pi)); circle (360,105,R);

A:=320; R:=round (sqrt (A/pi)); circle ( 55,235, R);

A:=300; R:=round (sqrt (A/pi)); circle ( 40,385,R);

end.
Нужно пояснения как это работает

геля217    1   20.11.2020 08:34    2