Составьте программку рисования 6 соприкасающихся окружностей диаметром 100 расположенных

Составьте программку рисования 6 соприкасающихся окружностей поперечником 100 расположенных горизонтально

Задать свой вопрос
Миха Хахлоа
На паскале можно?
1 ответ

uses GraphABC;

var

 diam,i,x:integer;

Begin

 x := 50;

 for i:= 0 to 5 do begin

   Circle(x,50,50);

   x := x + 100;

 end;

End.

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


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

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

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

Войти на сайт