Вданной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру. например,строка "653" преобразуется в строку "66533" исполните программу для строк: а)12457 б)56733 в)63936 нужно построить алгоритм и составить программу.на программе qbasic.
INPUT a$
L = LEN(a$)
i = 1
DO WHILE i < L + 1
s$ = MID$(a$, i, 1)
c = VAL(s$)
IF c \ 3 = c / 3 THEN
a$ = LEFT$(a$, i) + s$ + RIGHT$(a$, L - i)
L = L + 1
i = i + 1
END IF
i = i + 1
LOOP
PRINT a$