для учителей школ
CLS DIM str AS STRING DIM str1 AS STRING DIM a(200) AS integer str = "123456789" INPUT str1 l=len(str1) FOR i = 1 TO 9 a(i)=i FOR j = 1 TO l IF a(i) = val(MID$(str1, j, 1)) THEN a(i) = 0 j=10 k=k+1 END IF next j next i if k=l then PRINT 0 else FOR i = 1 TO 9 IF a(i) <> 0 THEN PRINT a(i); NEXT i end if
DIM str1(200) AS STRING DIM g(12) AS INTEGER DIM k(12) AS INTEGER INPUT "Общее количество всех учеников", N FOR i = 1 TO 12 g(i)=i k(i)=0 NEXT i FOR i = 1 TO N INPUT str1(i) l = LEN(str1(i)) - 1 str1(i) = LEFT$(str1(i), l) FOR j = 1 TO 12 IF j = VAL(MID$(str1(i), LEN(str1(i))-1, 2)) THEN k(j) = k(j) + 1 END IF NEXT j NEXT i FOR s = 1 TO 12 FOR d = s TO 12 IF k(d) > k(s) THEN c = k(d): k(d) = k(s): k(s) = c: c1 = g(d): g(d) = g(s): g(s) = c1: NEXT d NEXT s FOR i = 1 TO 3 z = z + k(i) NEXT i PRINT z FOR i = 1 TO 3 if k(i)<> then PRINT g(i); NEXT i
CLS DIM str AS STRING DIM str1 AS STRING DIM str2 AS STRING DIM a(200) AS STRING INPUT "kod", str str1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ" str2 = "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz" K = 200 L = LEN(str) FOR i = 1 TO L FOR j = 1 TO 26 IF MID$(str, i, 1) = MID$(str1, j, 1) OR MID$(str, i, 1) = MID$(str2, j, 1) THEN m = m + 1 j = 26 ELSE IF m > 0 AND m < K THEN K = m m = 0 END IF END IF NEXT j NEXT i FOR i = 1 TO L a(i) = MID$(str, i, 1) FOR j = 27 TO 52 IF MID$(str, i, 1) = MID$(str1, j, 1) THEN a(i) = MID$(str1, j -( 1 + K), 1): j = 52 IF MID$(str, i, 1) = MID$(str2, j, 1) THEN a(i) = MID$(str2, j -( K + 1), 1): j = 52 NEXT j NEXT i FOR i = 1 TO L PRINT a(i); NEXT i
