Дана строка. Преобразовать её, удалив каждый символ (*) звездочка и поставив на его место символы запятая и пробел («,_»). — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT "vvedite stroku ", a$
FOR i = 1 TO LEN(a$)
    c$ = MID$(a$, i, 1)
    IF c$ <> "*" THEN b$ = b$ + c$ ELSE b$ = b$ + ", "
NEXT
PRINT b$

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

Дана строка. Преобразовать её, удалив каждый символ (*) звездочка и поставив на его место символы запятая и пробел («,_»). — QBasic(Бейсик)