Получить в файле g все элементы файла f, являющиеся четными числами

@Kekoks · Регистрация: 01.06.2021

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

1. Дан файл f, элементы которого являются целыми числами. Получить в файле g все элементы файла f, являющиеся четными числами.

@Cyborg Drone · 17.11.2021, 19:25

Pascal

const
  fname = 'f.dat';
  gname = 'g.dat';
var
  f, g: file of integer;
  t: integer;
begin
  assign(f, fname);
  reset(f);
  assign(g, gname);
  rewrite(g);
  writeln('File ', fname, ':');
  while not eof(f) do
    begin
      read(f, t);
      write(t:8);
      if not odd(t) then write(g, t)
    end;
  writeln;
  close(f);
  reset(g);
  writeln('File ', fname, ':');
  while not eof(g) do
      begin
        read(g, t);
        write(t:8)
      end;
  close(g);
  readln
end.

Типизированный файл f.dat нужно предварительно создать, например, с помощью такой программы:

Pascal

const
  fname = 'f.dat';
var
  f: file of integer;
  s: string;
  t, err: integer;
begin
  assign(f, fname);
  rewrite(f);
  writeln('Vvedite elementy fajla, kazhdoe chislo na otdelxnoj stroke,');
  writeln('konec vvoda - pustaja stroka');
  repeat
    readln(s);
    if length(s) > 0 then
      begin
        val(s, t, err);
        write(f, t)
      end;
  until s = '';
  close(f)
end.

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

@Kekoks 0 / 0 / 0 Регистрация: 01.06.2021 Сообщений: 12
		1
	Получить в файле g все элементы файла f, являющиеся четными числами 15.11.2021, 12:28. Показов 412. Ответов 1 Метки нет (Все метки) 1. Дан файл f, элементы которого являются целыми числами. Получить в файле g все элементы файла f, являющиеся четными числами. 0

	17.11.2021, 19:25