Определить, все ли буквы слова различны

@softmob · Регистрация: 20.02.2010

Помогите с задачкой: определите все ли буквы слова различны.

@кот Бегемот · 02.03.2010, 17:10

Сообщение от softmob

Помогите с задачкой: определите все ли буквы слова различны.

PureBasic

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=1
next
next
if f=0 then print"vse bukvy slova razlichny" else print"v slove est odinakovye bukvy"

echs · 31.08.2016, 14:59

Вариант 2

QBasic/QuickBASIC

DECLARE FUNCTION f! (s AS STRING)
 
CLS
DIM s AS STRING
DIM u(0 TO 1) AS STRING
u(0) = "NO"
u(1) = "YES"
INPUT "SLOVO = "; s
 
PRINT u(f(s))
END
 
FUNCTION f (s AS STRING)
   DIM t AS STRING
 
   IF LEN(s) = 1 THEN
      f = 1
   ELSE
      t = LEFT$(s, 1)
      s = MID$(s, 2)
      k = INSTR(2, s, t)
      IF k = 0 THEN f = f(s)
   END IF
END FUNCTION

@softmob 1252 / 702 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
		1
	Определить, все ли буквы слова различны 02.03.2010, 14:51. Просмотров 1105. Ответов 2 Метки нет (Все метки) Помогите с задачкой: определите все ли буквы слова различны. 0

Опции темы

Определить, все ли буквы слова различны

Решение