s:string;
a:text;
begin
assign(a,'c:\file.txt');
append(a);
readln(s);
writeln(a,s);
close(a);
Похожие записи/страницы:
- Написать программу, которая считывает текст из файла и выводит его на экран, меняя местами каждые два соседних…
- Удалить из текстового файла f все однобуквенные слова и лишние пробелы. результат записать в файл g - Pascal(Паскаль)
- Написать программу, преобразующую файл АВС.ТХТ в файл INV.TXT. Причем первой строкой INV.TXT является последняя…
- На диск записывается массив строк как один компонент. Считать из файла каждую строку поочередною. Найти во всех…
- Вычислить y[i]=2sin(x[i])+a, где i=1.8. X вводится из файла f1. A меняется от –3 с шагом 0.5. Массив Y…
- Процедура Append - Pascal(Паскаль)
- Написать программу, которая позволяет дописать в конец файла общее число содержащихся в нем строк, а также…
- Дан текстовый файл FileIn. Составить процедуру RemWord(FileIn, FileOut), которая удаляет в файле слова и фразы,…