Предмет: Информатика,
автор: sashabasov93
1. Дан файл целых чисел. Преобразовать его, удалив
нечетные числа. Порядок следования четных чисел сохранить.Решите пожалуйста !
Ответы
Автор ответа:
0
var
f: file of integer;
i2, i, n: integer;
begin
Assign(f, 'numbers.txt');
Reset(f);
writeln;
i:=1;
i2:=0;
while not Eof(f) do
begin
read(f, n);
i:=i+1;
if n mod 2=0 then
begin
i2:=i2+1;
if i2<i then
begin
Seek(f,i2-1);
write(f,n);
Seek(f,i-1)
end
end
end;
Seek(f,i2);
Truncate(f);
close(f)
end.
Внимание!!! Файл не является текстовым!!!
f: file of integer;
i2, i, n: integer;
begin
Assign(f, 'numbers.txt');
Reset(f);
writeln;
i:=1;
i2:=0;
while not Eof(f) do
begin
read(f, n);
i:=i+1;
if n mod 2=0 then
begin
i2:=i2+1;
if i2<i then
begin
Seek(f,i2-1);
write(f,n);
Seek(f,i-1)
end
end
end;
Seek(f,i2);
Truncate(f);
close(f)
end.
Внимание!!! Файл не является текстовым!!!
Приложения:
Похожие вопросы
Предмет: Другие предметы,
автор: gulziatilegenova
Предмет: Право,
автор: QwerXs1
Предмет: История,
автор: etisenko617
Предмет: Математика,
автор: fox220684
Предмет: Литература,
автор: DiLeyn