— QBasic(Бейсик)

SCREEN 7
CIRCLE (100, 100), 50
CIRCLE (100, 100), 40
CIRCLE (100, 100), 30
CIRCLE (100, 100), 20
CIRCLE (100, 100), 10

Следующий вариант

SCREEN 7
FOR r = 50 TO 10 STEP -10
    CIRCLE (100, 100), r
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment