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