Предмет: Информатика, автор: nickitastalmakp0nvew

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

Приложения:

Ответы

Автор ответа: pacixor
0
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.
Автор ответа: nickitastalmakp0nvew
0
Я заменил x:= 'cTestTestcTestc'; на read (x) и всё тоже самое.
Автор ответа: nickitastalmakp0nvew
0
Там смотря сколько 'с' в слове, если 3 то все норм, а если нет то ошибка.
Автор ответа: pacixor
0
Подругому сделал. Смотри.
Автор ответа: nickitastalmakp0nvew
0
Теперь идеально. Спс!
Похожие вопросы
Предмет: Информатика, автор: lizuncce
Предмет: Русский язык, автор: bekbolberikkali05
Предмет: Математика, автор: Аноним
Предмет: География, автор: das21