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

0 голосов
69 просмотров

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


Информатика (15 баллов) | 69 просмотров
0

сможете помочь?

0

Блин, пожалуйста, очень нужно, буду вам очень признателен

0

Нет, никаких претензий не будет, я просто не очень разбераюсь в информатике

0

Прошу еще раз, пожалуйста, сделайте, даже если не подойдет я не буду иметь к вам никаких притензий, кроме вас никто не поможет...

Дан 1 ответ
0 голосов
Правильный ответ
// 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.

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

Скачать вложение Текст (TXT)
Скачать вложение Текст (TXT)
(150k баллов)