В символьном файле записаны слова, разделенные пробелами. Удалить из файла слова, состоящие менее чем из трех букв, и лишние пробелы. Мой исходник: program zz; var file:file of char; begin assign(file,'file.txt'); rewrite(file); writeln('Ведите строку слов:'); read(file); i:=i+1; while not eof(file) do begin while not eof(file) do i:=i+1 if file(i)=' ' then k:=i+1; delete(file;i,j) end; end. Все вроде бы шло гладко но вот остановилсяна проблеме запоминания позицый пробелов... Внесите пожалуйстакорективы
Знаю верный ответ Найти ответ на вопрос
Ключевые слова: pascal удалить файл, удалить все пробелы из файла, замена в файле pascal,
Ну ты читай один файл, пиши в другой. А потом в случае необходимости замени старый файл новым. Либо просто выведи на экран новый файл.
Ответить
С пробелом у тебя проблема, вглядись в свою логическую ошибку, она у тебя в конце проги.
Ответить