Предмет: Информатика,
автор: setoburih
Задача нарисовать 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.
Ответы
Автор ответа:
1
Ты перед END. должен добавить выражение которое увеличивает r на один пока r не станет 50. r=r+1; . Но это не точно (про выражение) , а суть правильна.
kacnepgames:
ставь лучший ответ если помог
Похожие вопросы
Предмет: Алгебра,
автор: musaevad937
Предмет: Английский язык,
автор: ivan12ii123
Предмет: Українська мова,
автор: sonyqwxzok
Предмет: Геометрия,
автор: vladshkiper
Предмет: Математика,
автор: lyudmilapotapova