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

CLS
INPUT a$
L =LEN(a$)
i = 1
DO WHILEi < 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$

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.