DIM s AS STRING, s1 AS STRING, n AS INTEGER
DIM i AS INTEGER, c AS STRING * 1
INPUT "s=", s
s1 = ""
FOR i = 1 TO LEN(s)
c = MID$(s, i, 1)
IF c <> "*" THEN s1 = s1 + c + c
NEXT i
PRINT s1
END
<em><u>Тестовое решение:</u></em>
s=12.4*1.45+sin(2*Pi*x)
1122..4411..4455++ssiinn((22PPiixx))
Чтобы продолжить, нажмите любую клавишу
V=каналы (штуки) *частота (1/с) *битность (бит) *время (с)
V=2*44032*16*60 бит = 2^1 * 43*2^10 *2^4 *15*2^4=43*15*2^17 бит
(43*15*2^17)/2^23 Мбайт=(43*15)/2^6 Мбайт=645/64 Мбайт = 10,08 Мбайт
Когда её удаляют.(в компьютере) ,когда компьютер очищают. Если в жизни ,то когда что то рвут или сжигают.