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

Формулировка задачи:

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

Код к задаче: «Определить, все ли буквы слова различны - QBasic»

textual
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"

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ