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

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

Задать свой вопрос
Мария
У тебя цикл от 1 до окончательного параметра длины строчки x. В цикле ты укорачиваешь строчку(delete), но значение окончательного параметра не может изменяться.
Antonina Alilujkoa
Спс. Тогда как лучше написать?
Безека Сашок
for i:=1 to 10000 do ?
Пикарова Софья
Лучше с иным циклом сделать.
Талагаева Таисия
с while пойдет?
Юрка Калер
Попробую
Zaramenskih Aleksej
Вряд ли
1 ответ
Var
  x, ch: string;
  i: integer;
begin
  write('Введите предложение: '); readln(x);
  ch := 'c';
  while Pos(ch, x) lt;gt; 0 do
    Delete(x, Pos(ch, x), Length(ch));

  writeln(x);
end.
Альбина Танделова
Я поменял x:= 'cTestTestcTestc'; на read (x) и всё тоже самое.
Маргарита
Там смотря сколько 'с' в слове, если 3 то все норм, а если нет то ошибка.
Полина Шигорева
Подругому сделал. Гляди.
Игорек Коришков
Теперь образцово. Спс!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт