Question

Составить программу на языке Паскаль, вычисляющую сумму всех чисел, кратных 3 на интервале от 1 до n. Применить цикл с заданным числом повторений.

Answer 1

var

   i, n, sum: integer;

   

begin

  sum := 0;

  read(n);

  for i := 1 to n do

    if i mod 3 = 0 then

      sum := sum + i;

   

  write(sum);

end.

Answer 2

Вот пример программы на языке Паскаль, которая вычисляет сумму всех чисел, кратных 3, на интервале от 1 до n с использованием цикла с заданным числом повторений:

pascalCopy code
program SumOfMultiplesOfThree;

var
  n, i, sum: integer;

begin
  writeln('Введите значение n: ');
  readln(n);

  sum := 0; // Инициализируем сумму нулем

  for i := 1 to n do
  begin
    // Проверяем, является ли текущее число кратным 3
    if i mod 3 = 0 then
    begin
      // Если кратно, то добавляем его к сумме
      sum := sum + i;
    end;
  end;

  writeln('Сумма всех чисел, кратных 3, на интервале от 1 до ', n, ' равна: ', sum);
end.

Эта программа сначала запрашивает у пользователя значение n, затем использует цикл for для перебора чисел от 1 до n и проверяет, является ли текущее число кратным 3 с помощью оператора mod. Если число кратно 3, то оно добавляется к переменной sum, которая используется для накопления суммы. Наконец, программа выводит результат.