uses
GraphABC;
var
a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));
begin
SetBrushColor(clYellow);
FillRect(0, 0, WindowWidth, WindowHeight);
SetBrushHatch(HatchStyle.Percent05);
SetBrushStyle(BrushStyleType.bsHatch);
SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clRed);
FillPolygon(a);
DrawPolygon(a);
end.
Устройствами ввода являются:
1-<span>Сканер
2-</span>Клавиатура
3-Веб-камера
4-<span>Мышь</span>
просто напиши свою дату по клеткам
Обман, воровство личной информации
1 байт-8 бит
_______________________