Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 3 аттестация / опирование из одного в другой
.pas program file3;
uses crt;
var fa1,fa2 ,fa3:file of char;
symbol:char;
begin
assign(fa1,'G:\pascal\m1.txt');
reset(fa1);
while not eof(fa1) do
begin
read(fa1,symbol);
end;
close(fa1);
write('файл обработан');
end.
uses crt;
var fa1,fa2 ,fa3:file of char;
symbol:char;
begin
assign(fa1,'G:\pascal\m1.txt');
reset(fa1);
while not eof(fa1) do
begin
read(fa1,symbol);
end;
close(fa1);
write('файл обработан');
end.
Соседние файлы в папке 3 аттестация