В задании необходимо:
- читать исходный текст, символьные строки и т.п. из внешнего символьного файла.
- результат выполнения программы выводить в новый символьный файл и/или на консоль.
INPUT " Vv. Put k File: ", n$
OPEN n$ FOR INPUT AS #1
LINE INPUT #1, S$
PRINT " S= "; S$
CLOSE
FOR i=1 TO LEN(s$)
IF MID$(s$,i,1)<"0"OR MID$(s$,i,1)>"9"THEN f=1
NEXT
OPEN"output.txt" FOR OUTPUT AS#2
IF f=0 THEN PRINT #2,"yes":PRINT"yes"ELSE PRINT#2 "no":PRINT"no"
CLOSE