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

# * * * * *
# # * * * *
# # # * * *
# # # # * *
# # # # # *
CLS
n = 5
FOR i = 1 TO n
    PRINT STRING$(i, 35);
    PRINT STRING$(n - i + 1, 42)
NEXT

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

Leave a Comment