В данной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру....

Question

В данной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру.
Например,строка "653" преобразуется в строку "66533"
Исполните программу для строк:
а)12457
б)56733
в)63936
Нужно построить алгоритм и составить программу.На программе Qbasic.

Answer 1

CLS
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$