Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Прог-ие 1К 2С / Текстовый документ
.txt reset(read_file, 'IntNum.txt');
assign(write_file,'NotThree.txt');
rewrite(write_file);
while not eof(read_file) do
begin
read(read_file, num);
if num mod 3 > 0 then
write(write_file, num, ' ');
end;
close(read_file);
close(write_file);
assign(write_file,'NotThree.txt');
rewrite(write_file);
while not eof(read_file) do
begin
read(read_file, num);
if num mod 3 > 0 then
write(write_file, num, ' ');
end;
close(read_file);
close(write_file);