Free Pascal ПОМОГИТЕ СРОЧНО!
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
More Questions From This User See All
Answers & Comments
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.