Question

Задача нарисовать 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.

Answer 1

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

Answer 2

сделай ещё одну переменую R (большая ) присвой значение ей один и сделай выражение в whilе

Answer 3

R=r+0.5; r=R+0.5;

Answer 4

R и r должны быть real

Answer 5

Сделай ответ лучшим , лучшей благодарности не надо.)

Answer 6

корона возле ответа