Информатика, pascal. в файле f1 записаны целые числа. - вопрос №18152669 от Sashattop 07.06.2020 19:08

Question

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

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

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