Free pascal ! дана целочисленная последовательность. - вопрос №9412201 от eremenko6kirov 18.06.2022 09:51

Question

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

eremenko6kirov · 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....