1 2 3 4 5 6 7 8 9 10 | CLSINPUT "Vvedite kol-vo krugov:"; nINPUT "Vvedite radius:"; rSCREEN 12FOR i = 1 TO n cv = RND * 15 + 1 kx = RND * 639: ky = RND * 479 CIRCLE (kx, ky), r, cv PAINT (kx, ky), cv, cvNEXT |
Тестирование выполнено в программе QB64 ( Скачать )