Какие изменения нужно внести в программу из примера 17.1 для того, чтобы ри- сунок выглядел следующим образом? пример 17.1. v. программа: uses graphabc; var x, y, r: integer; begin r : = 10; x : = 10; y : = 10; while x 640 do begin circle(x, y, r); x : = x + 20; end; end.
ты же получается цикл только у икса сделал, я исправил, если не так пиши переделаю.
var x, y, r: integer;
begin
r : = 10;
x : = 10; y : = 10;
while x 640 do
begin
circle(x, y, r);
x : = x + 20;
y : = y + 20;
r : = r + 20;
end;
end.