Использование файловых переменных

[britva666]

Напишите программу решения следующей задачи. Элементами исходного файла f являются целые числа. Записать в файл с все числа из файла f, принадлежащие отрезку [2, 8] и определить количество таких чисел.

[Пепел Феникса]

а язык какой?
наработки есть?

[Sazary]

Конечно напишем! Только вы выложите свои наработки, чтобы можно было сравнить

[britva666]

Своих наработок нету, я даже примерно не знаю как это делается.Нас заставляют делать профильную информатику,хотя базовой не учили. Форум единственный шанс закончить долбанную телешколу.Ну вот пример задачи и решение, может поможет
Дан файл a, элементами которого являются целые числа. Записать в файл b все четные числа из файла a, а в файл c - все нечетные
Решение

program files4;
мar  k, l, m: file of integer;
        n,i: word;
        a: integer;
begin
    assign(k,'a.dat');
    assign(l,'b.dat');
    assign(m,'c.dat');
    rewrite(k);
    rewrite(l);
    rewrite(m);
    write('Количество чисел в файле a: ');
    readln(n);
    for i:=1 to n do begin
        write(i,'-е число: '); readln(a);
        write(k,a);
    end;

    seek(k,0);
    while not eof(k) do begin
        read(k,a);
        If a mod 2 = 0 then write(l,a) else write(m,a);
    end;

    writeln('Содержимое файла a: ');
    seek(k,0);
    while not eof(k) do begin
        read(k,a);
        write(a,' ');
    end;

    writeln; writeln('Содержимое файла b: ');
    seek(l,0);
    while not eof(l) do begin
        read(l,a);
        write(a,' ');
    end;

    writeln; writeln('Содержимое файла c: ');
    seek(m,0);
    while not eof(m) do begin
        read(m,a);
        write(a,' ');
    end;

    writeln;
    close(k);
    close(l);
    close(m);
end.

[Stilet]

Вот запись из файла в файл с твоим условием, учитывая что исходный файл уже создан и наполнен числами.

var  f, c: file of integer;
        a: integer;
begin
    assign(f,'f.dat');
    assign(c,'c.dat');
    rewrite(c);
    reset(f);
    while not eof(f) do begin
      read(f,a);
      if a in [2..8] then write(c,a);
    end;
close(f); close(c);
end.