Задача нарисовать 50 концентрических окружностей с точкой в центре.

Паскаль рисует только одну окружность, помогите

Вот код:

uses graphABC;

var r, y, x: integer;

begin

setwindowSize (800,600) ;

y:=300;

x:=400;

for r:=1 to 50 do

circle (x, y, r) ;

end.

Question

Дашуня

14 сентября, 07:27

+1

Ответы (1)

Знаете ответ на вопрос?

Каллисфения · Answer 1

Ты перед END. должен добавить выражение которое увеличивает r на один пока r не станет 50. r=r+1;. Но это не точно (про выражение), а суть правильна.