kisilevars2003
03.10.2021 02:54

Дан файл целых чисел.удалить из него элементы с четным номером.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
На каком языке написать python, c++?
0,0(0 оценок)
Ответ:
тима421
04.10.2020 20:44
{ Pascal ABC.NET 3.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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота