нарисуйте точечный
рисунок в pascal abc

Ответы

Ответ дал: HRAshton
0
uses
  GraphABC;

begin
  var i, j: integer;
  for i := 50 to 150 do
    for j := 50 to 150 do
      putpixel(i, j, clBlack);
  Window.save('1.bmp');
end.
Похожие вопросы