Предмет: Информатика,
автор: Pyc52141
Помогите пожалуйста
В файле in.txt записаны 10 чисел. Найти сумму чисел, которые не меньше 5. Результат записать в файл out.txt.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
Примечание: если чисел гарантировано 10, то .Take(10) можно убрать
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
Примечание: если чисел гарантировано 10, то .Take(10) можно убрать
Автор ответа:
0
Может быть, покажется странным, но это действительно полная программа. Уж такие возможности у этого языка.
Похожие вопросы
Предмет: Музыка,
автор: sonya3277
Предмет: Русский язык,
автор: 1604aiaru
Предмет: Беларуская мова,
автор: dolgachdaria
Предмет: Алгебра,
автор: 19800405
Предмет: Геометрия,
автор: Vikazenenets