Информатика, pascal. в файле f1 записаны целые - вопрос №81524441 от yourmumsboyfriend 16.04.2023 16:57

Question

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

yourmumsboyfriend · 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.

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