Какие изменения нужно внести в программу из примера - вопрос №171401856 от 22050 05.04.2021 15:08

Question

Информатика: Какие изменения нужно внести в программу из примера 17 .1 для того, чтобы рисунок выглядел следующим образом. ! uses graphabc; var x, y, r: integer; begin r : = 10; x : = 10; y : = 10; while x 640 dobegin circle (x, y, r); x : = x + 20; end; end.​

22050 · Answer

uses graphabc;var x, y, r: integer;beginr:=10;x:=10; y:=10;while x 640 dobeginDrawcircle(x, y, r);x := x + 15;end;end.Задаём процедуру drawcircle и делаем x+15 вместо 20....