Информатика, pascal. в файле f1 записаны целые - вопрос №81533461 от denisstar756 09.05.2021 10:03

Question

Информатика: Информатика, pascal. в файле f1 записаны целые числа. найти четные числа и вычислить их сумму. результат и исходные данные записать в файл f2.

denisstar756 · Answer

// 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.

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