Ответы 1
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).Pairwise.Where(t->t[1].IsEven).Select(t->t[0]).PrintLines
end.
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).Pairwise.Where(t->t[1].IsEven).Select(t->t[0]).PrintLines
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?
Помоги другим с вопросами
по информатике
по информатике