Помогите. Ошибка в pascalABS, просто скажите что не так.

Question

Помогите. Ошибка в pascalABS, просто скажите что не так.

---

Comments

У тебя цикл от 1 до конечного параметра длины строки x. В цикле ты укорачиваешь строку(delete), но значение конечного параметра не может изменяться.

---

Спс. Тогда как лучше написать?

---

for i:=1 to 10000 do ?

---

Лучше с другим циклом сделать.

---

с while пойдет?

---

Попробую

---

Вряд ли

Answer 1

Var
  x, ch: string;
  i: integer;
begin
  write('Введите предложение: '); readln(x);
  ch := 'c';
  while Pos(ch, x) <> 0 do
    Delete(x, Pos(ch, x), Length(ch));

  writeln(x);
end.

Comments

Я заменил x:= 'cTestTestcTestc'; на read (x) и всё тоже самое.

---

Там смотря сколько 'с' в слове, если 3 то все норм, а если нет то ошибка.

---

Подругому сделал. Смотри.

---

Теперь идеально. Спс!