Free pascal ! дана целочисленная последовательность. - вопрос №9412026 от Roman789789 15.04.2020 08:25

Question

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

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