2 текстовых файла - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

есть 2 текстовые файла, созданные в редакторе Блокнот. (1.txt 2.txt).в 1 записана строка оканчивающаяся "."!как во второй перенести эту строку, но без который стоит до "."! заранее спасибо

Решение задачи: «2 текстовых файла»

textual
Листинг программы
var
 f, f2: text;
 i: integer;
 st, dir, dir2: string;
begin
 dir:='C:\Documents and Settings\Admin\Рабочий стол\1.txt';
 dir2:='C:\Documents and Settings\Admin\Рабочий стол\2.txt';
 assign(f, dir);
 reset(f);
 readln(f, st);
 i:=(pos('.',st));
 st:=copy(st,1,pos('.',st)-2);
 assign(f2, dir2);
 rewrite(f2);
 write(f2, st);
 close(f);
 close(f2);
end.

Оцени полезность:

7   голосов , оценка 4 из 5