Остафий
5 год назад
Пожалуйста посчитайте пожалуйста. Информатика, Pascal.В файле f1 записаны целые числа. Найти четные числа и вычислить их сумму. Результат и исходные данные записать в файл f2.
ОТВЕТЫ
Венета
Oct 24, 2020
begin
var s:=ReadAllText('f1.txt');
var c:=s.ToIntegers.Where(n->n.IsEven).Sum.ToString;
WriteAllText('f2.txt',c+NewLine+s)
end.
- Замечание: Количество строк с данными во входном файле значения не имеет. Ограничение на размер файла - 2 ГБ
621
