1 2 3 4 5 6 7 8 9 10 11 12 13 | SCREEN 1FOR x = 1 TO 10 PSET (x + 10, x)NEXT xFOR x = 10 TO 1 STEP -1 PSET (x, x + 10)NEXT xFOR x = 1 TO 10 PSET (20 - x, x + 10)NEXT xFOR x = 1 TO 10 PSET (10 - x, x)NEXT x |
Тестирование выполнено в программе QB64 ( Скачать )