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

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

Задать свой вопрос
Анна Щепаченко
можете помочь?
Ванюшечкин Юра
Блин, пожалуйста, очень нужно, буду вам очень признателен
Степеренко Кирилл
Нет, никаких претензий не будет, я просто не очень разбераюсь в информатике
Роман Инкинен
Прошу еще раз, пожалуйста, сделайте, даже если не подойдет я не буду иметь к для вас никаких притензий, кроме вас никто не поможет...
1 ответ
// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadAllText('f1.txt');
  var c:=s.ToIntegers.Where(n-gt;n.IsEven).Sum.ToString;
  WriteAllText('f2.txt',c+NewLine+s)
end.

Входной и выходной файлы находятся во вложениях
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт