Переписать в другой файл все четные числа

@Никита7798 · Регистрация: 04.03.2019

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

Из одного файла, содержащего некоторый набор чисел, переписать в другой файл все четные числа.

Заранее СПАСИБО!!

@ValentinNemo · 14.12.2019, 00:20

Файлы должны находиться в одной папке с программой.

Pascal

Program Zadanie163project1;
 
var
  f,q: text;
  x: integer;
begin
  assign(f,'text.txt');
  assign(q,'chisla.txt');
  reset(f);
  rewrite(q);
  while not eof(f) do
  begin
    read(f,x);
    if (x mod 2 = 0) then
      begin
        write(x:3);
        write(q,x:3);
     end;
  end;
  reset(f);
  close(f);
  close(q);
  writeln;
  writeln('Числа из файла "text.txt" переписаны в файл "chisla.txt"');
  readln;
end.

@Никита7798 0 / 0 / 0 Регистрация: 04.03.2019 Сообщений: 42
		1
	Переписать в другой файл все четные числа 13.12.2019, 23:33. Показов 1651. Ответов 1 Метки нет (Все метки) Из одного файла, содержащего некоторый набор чисел, переписать в другой файл все четные числа. Заранее СПАСИБО!! 0

	14.12.2019, 00:20

Переписать в другой файл все четные числа

Решение