Предмет: Информатика,
автор: nickitastalmakp0nvew
Помогите. Ошибка в pascalABS, просто скажите что не так.
Приложения:

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