Question

Программирование, Паскаль, Посчитать сумму ряда от 3 до N чисел, кратных 3.

Answer 1

П.с. если уровень 10-11 класс, то думаю, что решить необходимо с использованием массива. В приложениях смотри ответ.

Answer 2

Для решения этой задачи вам потребуется написать программу на языке программирования Паскаль. Программа будет выглядеть примерно так:

program SumOfMultiplesOfThree;

var
  N, i, sum: integer;

begin
  sum := 0;
  
  write('Enter the value of N: ');
  readln(N);
  
  for i := 3 to N do
  begin
    if i mod 3 = 0 then
      sum := sum + i;
  end;
  
  writeln('The sum of multiples of 3 from 3 to ', N, ' is: ', sum);
end.

Эта программа начинается с объявления переменных N, i и sum, которые будут использоваться для хранения значения N, текущего числа в цикле и суммы чисел соответственно.

Затем программа запрашивает у пользователя ввести значение N. После этого программа использует цикл for для перебора чисел от 3 до N и проверяет, делится ли текущее число на 3 без остатка. Если да, то это число добавляется к сумме.

Наконец, программа выводит на экран сумму всех чисел, кратных 3, от 3 до N.

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