1 2 3 4 5 6 7 | INPUT a$FOR i = 1 TO LEN(a$) IF (MID$(a$, i, 1) = ",") OR (MID$(a$, i, 1) = "-") THEN PRINT "simvol est": f = 1 IF (MID$(a$, i, 1) = ",") AND (MID$(a$, i + 1, 1) = "-") THEN PRINT "cepochki est": t = 1NEXTIF f = 0 THEN PRINT "simvolov net"IF t = 0 THEN PRINT "cepochek net" |
Тестирование выполнено в программе QB64 ( Скачать )