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 |
Тестирование выполнено в программе QB64 ( Скачать )