Показать сообщение отдельно
  (#4 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 24.02.2009, 10:26

Цитата:
Сообщение от юра 3 Посмотреть сообщение
Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
ReWrite(s);
REPEAT
ReadLn(f,w);
IF (NOT EoF(f)) THEN
WriteLn(s,w);
UNTIL EoF(f);
Close(f);
Close(s);
END.
Ответить с цитированием
Ads