QBasic . Пусть даны целое число n, символы S1,S2,...Sn. Преобразуйте последовательность S1,S2,...Sn, удалив каждый символ звездочки (*) и повторив каждый символ, отличной от звездочки.

DIM s AS STRING, s1 AS STRING, n AS INTEGERDIM i AS INTEGER, c AS STRING * 1INPUT "s=", ss1 = ""FOR i = 1 TO LEN(s) c = MID$(s, i, 1) IF c <> "*" THEN s1 = s1 + c + cNEXT iPRINT s1ENDТестовое решение:s=12.4*1.45+sin(2*Pi*x)1122..4411..4455++ssiinn((22PPiixx))Чтобы продолжить, нажмите любую клавишу