Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CLS
- INPUT tmp$
- FOR i = 1 TO LEN(tmp$)
- IF MID$(tmp$, i, 1) = " " THEN
- n = VAL(LEFT$(tmp$, i - 1))
- p = VAL(RIGHT$(tmp$, LEN(tmp$) - i))
- END IF
- NEXT i
- DIM a(n - 1)
- FOR i = 1 TO n - 1
- a(i) = 0
- NEXT i
- FOR i = 1 TO p
- INPUT tmp$
- tmp$ = tmp$ + " "
- start = 0
- finish = 0
- j = 1
- quit = 0
- WHILE quit = 0
- IF j = LEN(tmp$) THEN
- quit = 1
- END IF
- IF MID$(tmp$, j, 1) = " " THEN
- IF start = 0 THEN
- start = VAL(LEFT$(tmp$, j - 1))
- ELSE
- finish = VAL(LEFT$(tmp$, j - 1))
- END IF
- tmp$ = RIGHT$(tmp$, LEN(tmp$) - j)
- j = 1
- END IF
- j = j + 1
- WEND
- FOR j = start TO finish - 1
- a(j) = a(j) + 1
- NEXT j
- NEXT i
- FOR i = 1 TO n - 1
- IF a(i) < p THEN
- p = a(i)
- END IF
- NEXT i
- FOR i = 1 TO n - 1
- IF a(i) = p THEN
- PRINT i, "-", i + 1
- END IF
- NEXT i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement