CLS

[email protected] в категроии Разное, вопрос открыт 09.12.2017 в 01:17

INPUT "Input file name: "; a$
INPUT "Output file name: "; b$
OPEN a$ FOR INPUT AS #1
OPEN b$ FOR OUTPUT AS #2
s$ = " "
WHILE NOT EOF(1)
INPUT #1, i
IF INSTR(s$ + " ", STR$(i) + " ") = 0 THEN
WRITE #2, i
s$ = s$ + STR$(i)
END IF
WEND
PRINT "Chisla is faila 'a' perepisany v fail 'b' "
CLOSE
END
Что в данном случае значит вот эта часть:
IF INSTR(s$ + " ", STR$(i) + " ") = 0 THEN
WRITE #2, i
s$ = s$ + STR$(i)
END IF
Объясните пожалуйста на понятном языке