— QBasic(Бейсик)

1
2
3
4
5
6
SCREEN 7
CIRCLE (100, 100), 50
CIRCLE (100, 100), 40
CIRCLE (100, 100), 30
CIRCLE (100, 100), 20
CIRCLE (100, 100), 10

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

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

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

Leave a Comment