Задача на файлы * Опции

[Димас]

вот сегодня по информатике начали файлы изучать...

Учитель задал такую задачку :

Заполнить файл последовательного доступа f целыми числами, получеными с помщью генератора случайных чисел. Получить в файле g:
б.) те компоненты файла f, которые делятся на m и не делятся n .


Меня интересует что это за "генератор случайных чисел" ??

и как приблизительно можно решить б) ?

[volvo]

По-моему должно быть так.

А по-моему, вот так:

const k=1000;
var
  m,n,i:longint;
  f, g:text;
begin
  Randomize;
  assign(f, 'input.txt'); rewrite(f);
  for i := 1 to k do writeln(f, Random(200));
  reset(f);

  assign(g, 'output.txt'); rewrite(g);
  ReadLn(m,n);
  While not eof(f) do begin
    readln(f, i);
    if (i mod m = 0) and (i mod  n <> 0) then WriteLn(g, i);
  end;
  close(g);
  close(f);
end.

(все-таки сначала, по условию, заполняется один файл, а потом из него определенные числа переносятся в другой...)