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