A=a - это глупость.
if not(a>b) then a:=b; <-так правильнее.
Земля является уменьшенной моделью.
Удачи......
CLS
a$ = "abc"
INPUT "n = ", n
INPUT S$
IF LEN(S$) < n THEN
n = LEN(S$)
END IF
k = 0
FOR i = 1 TO n - 2
IF MID$(S$, i, 3) = a$ THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n OR n > 100 THEN GOTO a
DIM a(n)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 300 THEN GOTO b
IF INT((a(n)) / 3) = ((a(n)) / 3) THEN s = s + a(n)
NEXT i
PRINT s
END
<span><span>
Два текста содержат одинаковое количество символов. Первый текст составлен в алфавите мощностью 32 символа</span></span>