Арон 31 октября 2019 в 09:47

Между всеми символами строки вставить символ '-'.
Формат ввода: s - строка
Формат вывода: t - новая строка
Пример ввода: PRIMER
Пример вывода: P-R-I-M-E-R

INPUT a$FOR i = 1 TO LEN(a$)  b$ = MID$(a$, i, 1)  IF i = LEN(a$) THEN  ELSE    h$ = h$ + b$ + "-"  END IFNEXT iPRINT h$ + b$
Для комментирования необходимо зарегистрироваться на сайте