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

dkniga041 dkniga041    2   09.09.2019 20:10    0

Ответы
ivan080206 ivan080206  07.10.2020 03:54
// 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.

Входной и выходной файлы находятся во вложениях
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика