Предмет: Информатика, автор: daunsquad8998

Исправить ошибки в задании 2

Приложения:

Ответы

Автор ответа: farodis
0

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

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.

Похожие вопросы
Предмет: Математика, автор: romiktopik17
Предмет: Русский язык, автор: zacem88