В исходном предложении заменить все символы пробела символом .-.(тире)напичатать исходный и преобразованный тексты- QBasic(Бейсик)

DIM T AS STRING, N AS STRING
CLS
INPUT "Vvedite tekst : ", T
FOR i = 1 TO LEN(T)
 Smb$ = MID$(T, i, 1)
 IF Smb$ = " " THEN Smb$ = "-"
 N = N + Smb$
NEXT
PRINT "Ishosnyj tekst : "; T
PRINT "Novij tekst    : "; N