Free Pascal ПОМОГИТЕ СРОЧНО!
Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/fd3/fd3b06929c0c3fde90abf8bef3398ea6.png)
Ответ дал:
0
спасибо!
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад