Регистрация | Вход
;a;b begin;c;d;e;f ;g ;d;i;k;l logic ;m ;n number;o;p;r;s ;t ;w ;x;y;zFunction think(script$)For o = 1 To NumWord(script)w$=ReadWord(script,o)If w ="logic" Print "hello"Print "*"+w+"*"+NumWord(script)+"*"Next End FunctionFunction NumWord(t$)wn=1For o = 1 To Len(t) If Mid(t,o,1)=" " wn=wn+1Next Return wnEnd Function Function ReadWord$(t$,word_ti)word$="";word_i=0For o = 1 To Len(t) If Mid(t,o,1)=" " And word_i<word_tiword_i=word_i+1ElseIf word_i=word_ti-1 word$=word$+Mid(t,o,1)If word_i=word_ti ExitEndIfNext .a1 Return word$End Functionscript$=Input(">") Think(script)While Not KeyHit(1)WendEnd