Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
лидуська22
23.03.2020 23:59 •
Информатика
Вфайле in.txt записаны 10 чисел. найти сумму чисел, которые не меньше 5. результат записать в файл out.txt.
Ответ:
maksnovok007
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 оценок)
Популярные вопросы: Информатика
mila7772
20.06.2021 21:29
Вставь пропущенные слова.модель является результатом процесса модель обладает не всеми а только некоторыми .. имеет...
ilyavladimirov1
28.12.2020 21:07
10. дан одномерный массив. к четным элементам массива прибавить в, а из нечетных вычесть с. значения в и с вводятся с клавиатуры...
KosherDan
13.02.2021 20:53
Ярил дубок по икт кароч,я туплю тут полчаса,и не понимаю ничего. хелп,найдите ошибки и напишите как правильно. program d; var s,i,n,x ; integer; begin s; =0; a: =8;...
sabitaiganym
10.06.2020 04:09
Составьте программу в паскале. условный оператор. ввести число а. начертить вертикальную линию в левой части экрана если a 0 и в правой части экрана в противном случае....
Ilmaz2p
24.01.2021 09:43
Напишите загадку про спортивный костюм, юбку, футболку, шорты. ! зарание...
Viktoria818
27.03.2023 06:38
Простейший текстовый редактор который можно использовать в качестве средства просмотра текстовых файлов...
mmmaaakkkaaarrr
15.12.2021 06:27
Как переделать презентацию power point 2003 в power point 2007...
yesayes
20.05.2021 19:48
Дано n. найти произведение четных чисел этого числа. решить с паскаля. , у меня вышла такая программа: program pr1; var n,p,m: integer; begin write( n= ); readln(n);...
MartKsenka
21.08.2021 18:44
Написать программу. заданы 4 числа. найти среднее арифметическое и среднее этих чисел....
Карина1111999
20.06.2022 11:34
Как изменить порядок изображений в фотоальбоме? как повернуть изображение?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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) можно убрать