Срочно! даю 30 баллов
создать программу используя модуль графики graphabc; которая заполняет все графическое окно уменьшающимся к центру прямоугольниками.
создать программу используя модуль графики graphabc; которая заполняет все графическое окно уменьшающимся к центру прямоугольниками.
Answers & Comments
Verified answer
Uses Graphabc;var i:integer;
begin
SetWindowWidth(800);
SetWindowHeight(600);
SetPenWidth(3);
SetPenColor(clFuchsia);
for i:=0 to 13 do
Rectangle(30+20*i, 30+20*i, 770-20*i, 570-20*i);
end.