1 2 3 4 5 6 7 | INPUT "vvedite slovo ",a$FOR i=1 TO LEN(a$)FOR j=1 TO LEN(a$)IF i<>j AND MID$(a$,i,1)=MID$(a$,j,1)THEN f=1NEXTNEXTIF f=0 THEN PRINT"vse bukvy slova razlichny" ELSE PRINT"v slove est odinakovye bukvy" |