Program krug; uses graphabc; var x, y, dx, dy, r: integer; begin x: =50; y: =50; dx: =1; dy: =1; r: =50; repeat ellipse(x, y, x+r, y+r); x: =x+dx; clearwindow; if x> 400 then begin dx: =0; y: =y+dy; end; if y> 400 then begin dy: =0; dx: =-1; x: =x+dy; end; if x< 50 then begin dx: =0; dy: =-1; y: =y+dy; end; if y< 50 then break; setbrushcolor(clblack); ellipse(x, y, x+r, y+r); until x< 49; end. перепишите мне вот эту программу чтобы круг после завершения пошёл ещё направо и без мерцаний. нужно

    я - будущее казахстана.

я искренне верю, что благосостояние моего государства зависит только от людей. а мы, новое поколение, должны делать все, что позволяют наши возможности. я буду делать все возможное, чтобы мои дети и внуки гордились мной и нашей страной.

    именно от меня и моего поколения зависит, насколько бережно мы будем относиться к природе казахстана, расходовать ее дары. от нас зависит, узнает ли наше государство страшное слово "война" или же будет жить в мире и согласии. я верю в то, что мне под силу поднять мое государство на новый уровень. и если так будет считать каждый человек, то вместе мы сильны

Основные правила баскетбола

1)в баскетбол играют мяча 567-650 грамм

2)12 человек. 5 полевых игроков и 7 запасных

3)форма единая

4)играют 2 команды по 5 человек

5)игра продолжается 2 тайма по 20 минут

Перерыв 10 минут

6)мячом играю только руками

7)бежать с мячом, преднамеренно бить по нему ногой, блокировать любой частью ноги или бить по нему кулаком является нарушении. Случайно же соприкосновение или касание мяса стопой или ногой является нарушением

8)победителем в баскетболе становится команда, которая по окончании игрового времени набрала больше количество очков

9)за одно попадание может быть засчитан разное количество очков :

1 очко - со штрафной линии

2 очко - бросок со средней или близкой дистанции

3 очко - бросок из - за трехочковой линии