Предмет: Информатика,
автор: daunsquad8998
Исправить ошибки в задании 2
Приложения:


Ответы
Автор ответа:
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
Предмет: Українська мова,
автор: draganovamasa0
Предмет: Русский язык,
автор: zacem88
Предмет: Литература,
автор: яяяяяяяяяФ
Предмет: Литература,
автор: liza190824