Вывести на печать,используя функции space- QBasic(Бейсик)

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 ( Скачать )

Leave a Comment