Question

Free Pascal ПОМОГИТЕ СРОЧНО! Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.

Answer 1

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.

Answer 2

Конечно, помогу! Ниже приведен пример кода на Free Pascal, который вычисляет сумму каждого третьего элемента в целочисленной последовательности до тех пор, пока не встретится ноль.

pascalCopy code
program SumEveryThirdElement;

var
  sequence: array of Integer;
  num, i, sum: Integer;

begin
  SetLength(sequence, 0);
  writeln('Введите целочисленную последовательность, завершите нулем:');
  
  // Вводим элементы последовательности до тех пор, пока не встретится ноль
  repeat
    read(num);
    if num <> 0 then
    begin
      SetLength(sequence, Length(sequence) + 1);
      sequence[High(sequence)] := num;
    end;
  until num = 0;

  // Вычисляем сумму каждого третьего элемента, начиная с первого
  sum := 0;
  for i := 0 to High(sequence) do
  begin
    if (i + 1) mod 3 = 1 then // Проверяем, является ли текущий элемент первым в группе из трех
      sum := sum + sequence[i];
  end;

  writeln('Сумма каждого третьего элемента, начиная с первого: ', sum);
end.

Вы можете запустить этот код в среде программирования, поддерживающей Free Pascal, чтобы протестировать его и ввести целочисленную последовательность. Программа будет считывать элементы последовательности, пока не встретит ноль, а затем вычислит сумму каждого третьего элемента, начиная с первого, и выведет результат.