Question

Вывести на экран первые N чисел последовательности: 8, 14, 20, 26, 32... Найти А1+А3+А5+А7+А9, где Ai - это i-ое число последовательности чисел. Написать ко второму заданию программу на Паскале с использованием while/repeat/for.

Answer 1

Program p1;
var i,n,s:integer;
begin
s:=8;
write('Введите n:');
readln(n);
for i:=2 to n do
begin
write(s,' ');
s:=s+6;
end;
writeln(s,' ');
end.

Answer 2

Программа на Паскале для вывода первых N чисел последовательности и нахождения суммы А1+А3+А5+А7+А9 будет выглядеть следующим образом:

pascalCopy code
program SequenceSum;

var
  N, i, number, sum: Integer;

begin
  Write('Введите количество чисел N: ');
  Readln(N);

  number := 8; // Начальное число последовательности
  sum := 0;

  // Вывод первых N чисел последовательности
  Write('Первые ', N, ' чисел последовательности: ');
  for i := 1 to N do
  begin
    Write(number, ' ');
    number := number + 6; // Шаг последовательности
  end;
  Writeln;

  // Нахождение суммы А1+А3+А5+А7+А9
  number := 8; // Начальное число последовательности
  for i := 1 to 9 do
  begin
    if (i mod 2 <> 0) then
      sum := sum + number;
    number := number + 6; // Шаг последовательности
  end;

  Writeln('Сумма А1+А3+А5+А7+А9 = ', sum);

  Readln;
end.

Программа сначала запрашивает количество чисел N у пользователя. Затем она выводит первые N чисел последовательности, используя цикл for с шагом 6. После этого программа находит сумму А1+А3+А5+А7+А9, используя ещё один цикл for и проверку на нечётность индекса i.