Показать сообщение отдельно
  (#3 (permalink)) Старый
юра 3 юра 3 вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.12.2008
По умолчанию 23.02.2009, 22:47

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.
Ответить с цитированием
Ads