Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
LitunIlya
25.05.2020 01:22 •
Информатика
Вфайле in.txt записаны 10 чисел. найти сумму чисел, которые не меньше 5. результат записать в файл out.txt.
Ответ:
castafirs
07.10.2020 10:57
// 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) можно убрать
0,0
(0 оценок)
Популярные вопросы: Информатика
Stupidpeoplenamber1
05.07.2020 08:51
Определи расстояние на плоскости между двумя точками с заданными координатами m1(x1,y1)и m2(x2,y2) . ответ введи целым числом. если координаты точек: x1=6; y1=5x2=8; y2=10...
ник3999
09.04.2020 12:02
Паскаль! создать текстовый файл, имя которого запрашивается с клавиатуры. заполнить его набором строк, вводимых с клавиатуры....
svitaliy360
14.07.2020 00:31
Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300; 300] и вывести его на экран в строчку, с именем каждого элемента массива и его...
КэтринПирс23
04.02.2023 15:03
Составить алгоритм нахождения нод трех натуральных чисел, используя алгоритм нахождения нод двух чисел....
vikammirkushaoz9agx
02.04.2022 23:38
Сообщение,информационный объём который равен 5 кбайт,занимает 4 страницы по 32 строки,в каждой из которых записано по 40 символов.сколько символов в алфавите языка,на котором...
mlgcuca
08.05.2020 05:39
Составить программу и блок-схему к . определить вид треугольника по трем его сторонам....
амир299
22.01.2023 14:09
Нарисовать 5 окружностей на языке php...
anna0969
22.01.2023 14:09
Ограничения [время: 1000ms, память: 128mb, сложность: 2%] задана продолжительность некоторого события в секундах целым числом. считая, что в одном часе 60 минут, а в минуте...
Савина11
24.11.2021 17:51
Удалить элемент линейного массива вещественных чисел, которые меньше среднего арифметического элемента массива.если таких элементов несколько , удалить последний из найденных....
Viktoria727
27.08.2022 06:55
Вцветовой модели rgb для кодирования одного пикселя используется 3 байта. фотографию размером 2126×2953 пикселей сохранили в виде несжатого файла с использованием rgb-кодирования....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('out.txt',
ReadAllText('in.txt').ToIntegers.Take(10).Where(t->t>=5).Sum.ToString)
end.
Примечание: если чисел гарантировано 10, то .Take(10) можно убрать