В Паскале нарисовать в экране 300х300 пикселей рамку из кружков, радиусом

В Паскале нарисовать в экране 300х300 пикселей рамку из кружков, радиусом 15 пикселей.

Задать свой вопрос
1 ответ

uses GraphABC;

var x:integer;

begin

SetWindowWidth(300);

SetWindowHeight(300);

x:=15;

while xlt;300 do

begin

circle (x,15,15);

circle (x,285,15);

circle (15,x,15);

circle (285,x,15);

x:=x+30

end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт