an ancient greek legend, the uninvited wedding goddess of discord and strife eris threw a wedding table a golden apple, on which was written a single word - "the most beautiful". were on olympus hera, athena and aphrodite arguing who should own this apple. each of them was rightfully deserves to own an apple, and even zeus refused to be their judge. he took the apple, gave it to hermes and told to withdraw goddesses in the neighborhood of troy, mount olympus, where they had to decide the dispute son of king priam of troy, paris. hera promised paris power over the whole of asia, athena - the glory and victory, and aphrodite promised him in marriage elenu.uslyhav wonderful promise of aphrodite, paris gave the apple of paris ey.afrodita helped kidnap helen, wife of spartan king menelaus, which later was the cause of the trojan war .
an ancient greek legend, the uninvited wedding goddess of discord and strife eris threw a wedding table a golden apple, on which was written a single word - "the most beautiful". were on olympus hera, athena and aphrodite arguing who should own this apple. each of them was rightfully deserves to own an apple, and even zeus refused to be their judge. he took the apple, gave it to hermes and told to withdraw goddesses in the neighborhood of troy, mount olympus, where they had to decide the dispute son of king priam of troy, paris. hera promised paris power over the whole of asia, athena - the glory and victory, and aphrodite promised him in marriage elenu.uslyhav wonderful promise of aphrodite, paris gave the apple of paris ey.afrodita helped kidnap helen, wife of spartan king menelaus, which later was the cause of the trojan war .
// Внимание! Если программа не работает, обновите версию!
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