1 2 3 4 5 | _***** __**** ___*** ____** _____* |
1 2 3 4 5 6 | CLS n = 5 FOR i = 1 TO n PRINT STRING $(i, 196 ); PRINT STRING $(n - i + 1 , 42 ) NEXT |
Тестирование выполнено в программе QB64 ( Скачать )
1 2 3 4 5 | _***** __**** ___*** ____** _____* |
1 2 3 4 5 6 | CLS n = 5 FOR i = 1 TO n PRINT STRING $(i, 196 ); PRINT STRING $(n - i + 1 , 42 ) NEXT |
Тестирование выполнено в программе QB64 ( Скачать )