Question

Помогите пожалуйста. Информатика, Pascal.
В файле f1 записаны целые числа. Найти четные числа и вычислить их сумму. Результат и исходные данные записать в файл f2.

Answer 1

// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllText('f1.txt');
  var c:=s.ToIntegers.Where(n->n.IsEven).Sum.ToString;
  WriteAllText('f2.txt',c+NewLine+s)
end.

Входной и выходной файлы находятся во вложениях

f47a4758e5b6745b37b6fded5bf05d50.txt

146fa2095b54ca9d4079e9a69d5496ca.txt

Answer 2

Замечание: Количество строк с данными во входном файле значения не имеет. Ограничение на размер файла - 2 ГБ