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

Помогите исправьте задачу плиз,а то она работает не правильно.

Вот она:Даны два текстовых файла с именами Name1 и Name2. Добавить в конец файла Name1 содержимое файла Name2.

Program q1;
var
f,s:text;
w:integer;
begin
assign (f,'1.txt');
assign (s,'2.txt');
reset (f);
append (s);
read(f,w);
write(s,w,' ');
close(f);
close(s);
end.
Ответить с цитированием
Ads