tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
На ! 1. написать программу
На ! 1. написать программу которая будет выводить сумму четных цифр(пока не введете 0). 2.программа выводит количество четных цифр. 3.программу которая будет выводить произведение введенных чисел пока не будет введен 0.
Roblox2017
1 12.09.2019 00:10
0
Ответы
ирт3
07.10.2020 08:38
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Sum)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
2708
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Count)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
5
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Aggregate(Biginteger(1),(x,y)->x*y))
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
-775118121479521866390147967800000
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mrdrozdovoy228
03.09.2019 10:50
Выбери ответ. символом usb являются четыре фигуры: пирамида, малый круг, треугольник и квадрат, расположенные на концах древовидной блок-схемы. да или нет....
mishany111222333444
03.09.2019 10:50
Free pascal. написать программу детектирования слова-полиндрома...
0p3n
03.09.2019 10:50
Перечислите основные типы операторов условия. примеры использования каждого из них. примеры в коде программы....
BkyCHblu5DoLLluPaK
03.09.2019 10:50
При производстве двух видов изделий (а и в) предприятие использует 4 вида ресурсов. нормы расхода ресурсов на производство единицы продукции, объем ресурсов, а также прибыль...
taxirkuliev
17.02.2021 06:20
Фирма осуществляет набор сотрудников. Условия приема требуют не менее 3 лет стажа и возраст не более 35 лет. Написать программу, проверяющую удовлетворяет ли кандидат этим...
Настя49261
17.02.2021 06:24
Задача № 1 Вспомните басню И.А. Крылова «Квартет»: Проказница Мартышка, Осёл, Козёл Да косолапый Мишка Затеяли сыграть квартет. . . . . . . . . . . . . . . . . . Ударили...
chuko
17.02.2021 06:25
1. Области применения робота. 5 б 1. 2. 3. 4. 5....
pashasergo
11.03.2021 12:40
ТЕКСТ ЗАДАНИЯ 8. Гироскопические датчики широко используются в промышленной ивоенной сферах. Например:b) Гироскопы управляют движением людей в магазинаха) гироскопы управляют...
lemannv
11.03.2021 12:42
Составь программу вычисления значение выражения y =1+3a²/1+3a...
anavysockaa2060
11.03.2021 12:42
Через запятую запишите полученные слова...
Популярные вопросы
Составь выражение и найди его значение а)сумма произведения 24 *11 и частного...
1
Трое учеников решили покушать. один из них дал 10 рублей, второй – достал...
2
Три юноши и семь девушек отправляются на двух лодках по реке. сколькими...
1
Скорость зайца равна 15 м/с, а скорость дельфина 72км/ч. кто из них имеет...
1
самое главное блаженство моей жизни сочинение на эту тему или блаженства...
2
Іть будь ласка скласти твір на тему історичне минуле українського народу...
2
Какое важное событие произошло 3 августа 1812 года?...
2
Чтобы попасть домой из бассейна, я могу выйти либо на станции проспект...
3
1.с каким ускорением движется трогающийся с места травмай, если он набирает...
2
Назовите украинские и земли, входившие в состав речи посполитой...
3
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Sum)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
2708
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Where(t->t.IsEven).Count)
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
5
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Aggregate(Biginteger(1),(x,y)->x*y))
end.
Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
-775118121479521866390147967800000