Вопрос по информатике:
Дан файл целых чисел.Удалить из него элементы с четным номером.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.05.2018 04:49
- Информатика
- remove_red_eye 7005
- thumb_up 8
Ответы и объяснения 2
Входной текстовый файл с числами ч/з один пробел.
(в конце не должно быть пробелов!)
}
const
f_in_name = 'd:\in9.txt';
f_tmp_name = 'd:\tmp.tmp';
var f_in,f_out: text; i, k: integer;
begin
Assign(f_in, f_in_name);
Assign(f_out, f_tmp_name);
Reset(f_in); Rewrite(f_out);
k := 0;
while not Eof(f_in) do begin
Read(f_in, i); k := k + 1;
if k mod 2 0 then Write(f_out, ' ', i);
end;
Close(f_out); Close(f_in);
DeleteFile(f_in_name);
RenameFile(f_tmp_name, f_in_name);
end.
- 21.05.2018 09:57
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.