Поправить оплошности в задании 2

Поправить оплошности в задании 2

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

нуу как то так...

uses GraphABC;

var x1,x2,y1,y2: integer;

begin

setwindowsize(600, 400);

for var i:=1 to 20 do

begin

SetPenColor(clrandom);

Setbrushcolor(clrandom);

x1:=Random(128);

y1:=random(265);

x2:=random(449);

y2:=Random(365);

line(x1,y1,x2,y2);

end;

end.

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


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

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

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

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

Войти на сайт