# * * * * *
# # * * * *
# # # * * *
# # # # * *
# # # # # *
CLS
n = 5
FOR i = 1 TO n
PRINT STRING$(i, 35);
PRINT STRING$(n - i + 1, 42)
NEXT
Тестирование выполнено в программе QB64 ( Скачать )
# * * * * *
# # * * * *
# # # * * *
# # # # * *
# # # # # *
CLS
n = 5
FOR i = 1 TO n
PRINT STRING$(i, 35);
PRINT STRING$(n - i + 1, 42)
NEXT
Тестирование выполнено в программе QB64 ( Скачать )