предлагаю решение на Бейсике
for r=10 to 50 step 10
circle (200,200),r,5
next r
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses
GraphABC;
Var
i:integer;
begin
for i:=5 downto 1 do
circle(60,60,i*10);
end.
Verified answer
предлагаю решение на Бейсике
for r=10 to 50 step 10
circle (200,200),r,5
next r