Какие изменения нужно внести в программу из примера 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.​

GuardiaN55 GuardiaN55    3   19.03.2019 21:57    3

Ответы
хели3 хели3  26.05.2020 05:46

uses graphabc;

var x, y, r: integer;

begin

r:=10;

x:=10;

y:=10;

while x<640 do

begin

Drawcircle(x, y, r);

x := x + 15;

end;

end.

Задаём процедуру drawcircle и делаем x+15 вместо 20.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика