Пожалуйста напишите решение =) (с While)
Uses graphABC;
var x,y,a,b,r:integer;
begin;
maximizewindow;
Setbrushstyle(bsClear);
r:=50;
x:=100;
y:=50;
for b:=1 to 3 do
begin;
while a<>7 do
begin;
a+=1;
circle(x,y,r);
y+=50;
end;
a:=0;
x+=100;
y:=50;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
