Question

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

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.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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