tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Информатика, pascal. в
Информатика, pascal. в файле f1 записаны целые числа. найти четные числа и вычислить их сумму. результат и исходные данные записать в файл f2.
dkniga041
2 09.09.2019 20:10
0
Ответы
ivan080206
07.10.2020 03:54
// PascalABC.NET 3.3, сборка 1570 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadAllText('f1.txt');
var c:=s.ToIntegers.Where(n->n.IsEven).Sum.ToString;
WriteAllText('f2.txt',c+NewLine+s)
end.
Входной и выходной файлы находятся во вложениях
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ладаседан7
18.09.2019 15:10
Из числа 5. получить 26 с ( ходов 1.вычитает 1 2.умножает на 3...
KLIN50
18.09.2019 15:10
10 свойства с именем возраст.какое слово в место...
Alena200302
11.09.2019 20:20
Паскаль, решите ! напишите программу, которая в последовательности натуральных чисел находит количество трехзначных чисел оканчивающихся на цифру 8. вход: программа получает на...
ViktoriaAlex666
19.08.2019 17:40
Некоторый алфавит содержит 64 символов. сообщение состоит из 5 символов. определите информационный объем сообщения...
dashakid1
19.08.2019 17:40
Определите, что будет напечатано в результате работы следующей программы: program p1; var i, n: integer; k: real; const dat: array[1..36] of real=(5, 5, 5, 5, 10, 5, 25, 10, 40,...
Katia1717
19.08.2019 17:40
1.в каком режиме просмотра дана более полная информация о файлах в папке? 2.в чем заключается разница между операциями перемещения и копирования файла? 3.сколько копий файла можно...
dwinchester15
30.05.2019 11:02
Не существует кнопки окном 1) развернуть 2)свернуть 3)закрытт 4)переключить...
molkes
30.05.2019 11:04
Нужно сделать с решением задиния. можно без дано просто что бы было понятно откуда данный ответ. кто тому буду ! 50 !...
Dina605
30.05.2019 11:04
Файл это 1) прогркмма или данные на диски 2) программа в оперативной памяти 3)текст распечатанный на принткре...
ксюsha10
30.05.2019 11:08
Составить программу на паскль: даны 2 целых числа а и в найту семму всех натуральных чисел от а до в включительно....
Популярные вопросы
Ход работы 1. Налейте в каждую пробирку по 20 мл сока. 2. Добавьте к сокам приготовленную...
2
Очень нужно. Отмечу лучший. Полное решение нужно. Определите показатели использования...
3
Парижская коммуна 1871 года: бунт или подвиг ?...
2
Луч DK проведённый из () K середины стороны BC пораллелограм ABCD пересек с лучом...
3
Из таблицы натуральных случайных чисел выбирается одно. Пусть А={выбранное число...
1
решить РИО(реакции ионного обмена) 1)Ba(OH)2+Zn(NO3)2. 2)PbCl2+NaOH. 3)BaS+H3PO4...
2
Горизонтально расположенное колесо, имеющее форму диска массой 200 г и радиусом...
3
2(0.5а²-2а)-0.25а(4а²-16) а)0. б)-8а в)-8 г)а³-8ад)а³+8а...
3
если правильно ответите, а тем кто неправильно ответит кину жалобу....
3
Алгоритм, в котором команды выполняются в порядке их записи, то есть последовательно...
3
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadAllText('f1.txt');
var c:=s.ToIntegers.Where(n->n.IsEven).Sum.ToString;
WriteAllText('f2.txt',c+NewLine+s)
end.
Входной и выходной файлы находятся во вложениях