Помогите решить прогу по Паскалю
Из файла cisla.txt' перенести в файл числа c. txt
Заменить все четные числа на 0 и содержимое всего полученного файла перенести во второй файл.
Из файла cisla.txt' перенести в файл числа c. txt
Заменить все четные числа на 0 и содержимое всего полученного файла перенести во второй файл.
More Questions From This User See All
Answers & Comments
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.