составьте программку которая живописует красные круги радиуса 30 по вертикали вдоль

Составьте программку которая живописует красноватые круги радиуса 30 по вертикали вдоль левого края графического окна

Задать свой вопрос
1 ответ
program krug;
 uses graphabc;
 var x,y,r,i:integer;
 begin
 setwindowsize (640,480);
 setwindowtitle ('');
 setpencolor (clred);
 setpenwidth (4);
 x:=50; 
 y:=50;
 r:=40;
 for i:=1 to 10 do
 begin
 circle(x,y,r);
 x:=x+80;
 end;
 end.
Такое пойдёт?
Милена Юзвишина
ДА. СПАСИБО
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт