Имеются ли в заданном тексте символы <,> и <->, а также цепочки из этих символов — Basic(Бейсик)

disel
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=1
NEXT
IF f=0 THEN PRINT"simvolov net"
IF t=0 THEN PRINT"cepochek net"

Похожие записи/страницы:

Leave a Comment