Pascal ABC ПОМОГИТЕ СРОЧНО ДАЮ 40Б!
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
Ответы
Ответ дал:
0
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).ToArray;
a.Where((el, ind)-> ind mod 3 = 0).Sum.Println;
end.
Ответ дал:
0
а можно обьяснение
Ответ дал:
0
а то так функции не работают в free pascal
Ответ дал:
0
в фрипаскале это не работает
Ответ дал:
0
обьясните код,который вы написали
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
9 лет назад