** ПАСКАЛЕ!!! 1. Написать программу которая будет выводить сумму четных цифр(пока не...

Question

НА ПАСКАЛЕ!!! 1. Написать программу которая будет выводить сумму четных цифр(пока не введете 0). 2.Программа выводит количество четных цифр. 3.Программу которая будет выводить произведение введенных чисел пока не будет введен 0.

Answer 1

// 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

Comments

Причем тут виноват, я же ничего не говорю про это..... Зачем спорить с вами если очевидно что это правильно, просто я повторюсь что мне нужно было что-бы программа была написан на с использованием выше приведенных операторов. Все равно спасибо.

---

Я не могла его изменить, кнопка пропала.

---

Такой ...... Слов нету, я ничего про тебя не говорю, так что следовало бы просто закрыть рот и пройти мимо... Нет нужно поэму написать прежде чем уйти.