Var i,j,c,x,y:integer; begin c:=255; x:=window.height div 8; y:=60; for i:=1 to 4 do begin for j:=1 to 8 do begin circle(x,y,window.height div 16); floodfill(x,y,rgb(c,c,c)); c:=c-8; x:=x+(window.height div 8); end; y:=y+window.height div 4; x:=window.height div 8; end; end.
0 votes Thanks 0
anuta23456899
После программы Circle пишет "встречено 16, а ожидалось ')'
Answers & Comments
Verified answer
//PascalABC.NET 3.2 сборка 1318uses
GraphABC;
Var
i,j,c,x,y:integer;
begin
c:=255;
x:=window.height div 8;
y:=60;
for i:=1 to 4 do
begin
for j:=1 to 8 do
begin
circle(x,y,window.height div 16);
floodfill(x,y,rgb(c,c,c));
c:=c-8;
x:=x+(window.height div 8);
end;
y:=y+window.height div 4;
x:=window.height div 8;
end;
end.