Дан файл целых чисел, содержащий четное количество элементов. Удалить из данного файла вторую половину элементов. (на паскале)
Ответы на вопрос
Ответил Аноним
0
Предполагается, что целые числа (возможно, со знаками) записаны в текстовом файле и разделены одним или более пробелами. Допускаются также смены строки.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('in.txt').ToIntegers.ToArray;
WriteAllText('out.txt',a[:a.Length div 2].JoinIntoString)
end.
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('in.txt').ToIntegers.ToArray;
WriteAllText('out.txt',a[:a.Length div 2].JoinIntoString)
end.
Новые вопросы