Помогите решить прогу по Паскалю Из файла cisla.txt' перенести в файл числа c. txt...

Question

Помогите решить прогу по Паскалю
Из файла cisla.txt' перенести в файл числа c. txt
Заменить все четные числа на 0 и содержимое всего полученного файла перенести во второй файл.

Answer 1

PascalABC.NET V3.3

var

  a: integer;

  fin, fout: text;

begin

  assign(fin, 'cisla.txt');

  assign(fout, 'c.txt');

  reset(fin);

  rewrite(fout);

  while not (eof(fin)) do 

  begin

    readln(fin, a);

    if a mod 2 = 0 then a := 0;

    writeln(fout, a);

  end;

  close(fin);

  close(fout);

end.