Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 5 лаб. Файлы текстовые / Program3
.pas uses crt;
Var t1,t2: Text;
i: byte;
s: String;
begin
Assign(t1,'1.txt');
Reset(t1);
Assign(t2,'2.txt');
append(t2);
i:=0;
While not Eof(t1) do
begin
readln(t1,s);
i:=i+1;
if i mod 2=0 then Writeln(t2,s);
end;
Close(t1);
Close(t2);
readln;
end.
Var t1,t2: Text;
i: byte;
s: String;
begin
Assign(t1,'1.txt');
Reset(t1);
Assign(t2,'2.txt');
append(t2);
i:=0;
While not Eof(t1) do
begin
readln(t1,s);
i:=i+1;
if i mod 2=0 then Writeln(t2,s);
end;
Close(t1);
Close(t2);
readln;
end.
Соседние файлы в папке 5 лаб. Файлы текстовые