Input "vvedite slovo"; a

N = LEN(A): B = "": F = 0

FOR I = 1 TO N

IF INSTR(B, MID$(A, I, 1)) = 0 THEN

K = 0

FOR J = I + 1 TO N

IF MID$(A, I, 1) = MID$(A, J, 1) THEN K = K + 1

NEXT J

F = F + 1

B = B + MID$(A, I, 1)

C(F) = K

END IF

NEXT I

IF F > 0 THEN

FOR I = 1 TO F

PRINT MID$(B, I, 1); " - "; C(I); " POVTORENI"

NEXT I

ELSE

PRINT "SLOVO HE VVELI"

END IF

END

Дано слово. Если оно четной длины, то удалить 2-ю половину слова, а первую половину перевернуть.

Если слово нечетной длины, то удалить средний символ

DIM A AS STRING, I AS INTEGER, N AS INTEGER

DIM B AS STRING, K AS INTEGER, C AS STRING

Input "vvedite slovo"; a

N = LEN(A): K = N \ 2

IF N MOD 2 = 0 THEN

B = ""

FOR I = 1 TO K

B = B + MID$(A, I, 1)

NEXT I

FOR I = 1 TO K \ 2

C = MID$(B, I, 1)

MID$(B, I, 1) = MID$(B, K - I + 1)

MID$(B, K - I + 1) = C

NEXT I

ELSE

B = LEFT$(A, K) + RIGHT$(A, N - (K + 1))

END IF

A = B

PRINT "A="; A

END