Pascal ABC ПОМОГИТЕ СРОЧНО ДАЮ 40Б!
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
More Questions From This User See All
Answers & Comments
Verified answer
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).ToArray;
a.Where((el, ind)-> ind mod 3 = 0).Sum.Println;
end.