В файл g записать все четные числа из файла f, а в h все нечетные.

@banderlog555 · Регистрация: 27.03.2014

Студворк — интернет-сервис помощи студентам

Организовать файл последовательного доступа f, состоящий из N целых чисел. После этого организовать файлы g и h. В файл g записать все четные числа из файла f, а в h все нечетные. Вывести на экран содержимое файлов f, g и h.

Помогите пожалуйста решить задачу

Добавлено через 2 часа 44 минуты
Помогите пожалуйста, срочно надо

@JokeR.BY · 12.05.2014, 06:48

Pascal

var
  i, n : Word;
  f, g, h : Text;
  number : Integer;
begin
  Randomize;
  Write('Input n='); Readln(n); Dec(n); Writeln;
  Assign(f, 'f.txt'); Rewrite(f);
  for i := 0 to n do
    Writeln(f, (Random(500) - 250));
  Readln;
  Reset(f);
  Assign(g, 'g.txt'); Rewrite(g);
  Assign(h, 'h.txt'); Rewrite(h);
  Writeln('File f:');
  while not Eof(f) do
  begin
    Readln(f, number);
    Writeln(number);
    if Odd(number) then
      Writeln(h, number)
    else
      Writeln(g, number);
  end;
  Close(f);
  Writeln; Writeln('File g:');
  Reset(g);
  while not Eof(g) do
  begin
    Readln(g, number);
    Writeln(number);
  end;
  Writeln; Writeln('File h:');
  Reset(h);
  while not Eof(h) do
  begin
    Readln(h, number);
    Writeln(number);
  end;
  Close(g); Close(h);
  Readln;
end.

@banderlog555 0 / 0 / 0 Регистрация: 27.03.2014 Сообщений: 15
		1
	В файл g записать все четные числа из файла f, а в h все нечетные. 11.05.2014, 17:52. Показов 3487. Ответов 1 Метки нет (Все метки) Организовать файл последовательного доступа f, состоящий из N целых чисел. После этого организовать файлы g и h. В файл g записать все четные числа из файла f, а в h все нечетные. Вывести на экран содержимое файлов f, g и h. Помогите пожалуйста решить задачу Добавлено через 2 часа 44 минуты Помогите пожалуйста, срочно надо 0

Опции темы

В файл g записать все четные числа из файла f, а в h все нечетные.

Решение