В данной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру. Например,строка "653" преобразуется в строку "66533" Исполните программу для строк: а)12457 б)56733 в)63936 Нужно построить алгоритм и составить п...
В данной символьной строке,состоящей из цифр,удвойте каждую кратную трем цифру.
Например,строка "653" преобразуется в строку "66533"
Исполните программу для строк:
а)12457
б)56733
в)63936
Нужно построить алгоритм и составить программу.На программе Qbasic.
Гость
Ответ(ы) на вопрос:
Гость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$
Не нашли ответ?
Похожие вопросы