Free pascal ! дана целочисленная последовательность. - вопрос №9412703 от Alice1st 10.03.2021 02:10

Question

Информатика: Free pascal ! дана целочисленная последовательность. признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. вычислить сумму каждого третьего элемента, начиная с первого.

Alice1st · Answer

var a, sum, Count: integer; begin  sum := 0;  Count := 0;  repeat    Read(a);    if Count mod 3 = 0 then sum += a;    Count += 1;  until a = 0;  Write(sum) end....