Цитата:
|
Сообщение от Asira
Помогите ничего не могу понять не хочет она работать более чем с 1 словом.................
|
А как ей бедной не виснуть?
Я ж написал: проверь условия.
Смотри
Код:
while (pos(s[i],znaki)<>0) and (i<=length(s))do
write(s[i]);
Inc(i);
//end;
Пока pos(s[i],znaki)<>0 (допустим выполняеться) и (i<=length(s))
печатает s[i].
Но Inc(i); стоит вне цикла.
Тоесть "i" не меняеться. Вот прога и строчит тебе s[i].
Та и кроме этого еще полно ошибок в проге.